請問以上有辦法縮減內容嗎，知道迴圈 1 to 5，但是宣告y部分不知道能不能放入迴圈變數
已邀請的邦友 {{ invite_list.length }}/5
請參閱 : Excel VBA 程式設計教學：陣列（Array）
請參閱 : Excel VBA 儲存格顏色移動
關鍵字 :
MyArray(ColorCount) = Cells(Z, M).Interior.Color
Cells(Z, 5 - K + 1).Interior.Color = MyArray(K)
Sub test()
Set oFields = CreateObject("Scripting.Dictionary")
With oFields
For y = 1 To 5
'.Add "y" & y, Cells(1, y).Text '數值
.Add "y" & y, Cells(1, y) '該 cells 內之所有東西
Next
End With
t = oFields.Keys
k = oFields.Items
End Sub
iThome鐵人賽
看影片追技術