Re: [VBA ] 新手..想使用EXCEL內建函數執行迴圏

[AprisYeh (阿普)]

把迴圈慢慢試了又試..似乎是寫出來了

現在想請問若我將vlookup抓出來的資料

x=1 to 5
y=1 to 3  cells(x,y)

從cells(1,1)開始放到cells(5,1)..

然後cells(1,2)到cells(5,2)...最後放到cells(5,3)

如果要將這些資料"累加"寫入cells(1,1)至cells(5,1)應該如何著手..

我自己寫的變成只要"隨便點"任意的儲存格..就會把累加的總值持續不斷累加..

點一次加一次= =



以下附上之前我的問題的程式碼.僅供各位參考

Dim myrng As Range
Dim mycnt As Long
Dim mykey As String
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim l As Integer

Set myrng = Sheets("sheet2").Range("A22:F35")
j = 2
k = 5
        Do While j >= 2
        l = 5
        i = 2
        mykey = Cells(j, 1).Value
          If Cells(j, 1).Value = "" Then Exit Do
             Do While i <= 6
                 mycnt = WorksheetFunction.VLookup(mykey, myrng, (i), False)
                 Cells(l, k).Value = mycnt * Cells(j, 2).Value
                 l = l + 1
                 i = i + 1
             Loop
          j = j + 1
          k = k + 1
        Loop
End Sub



--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 125.231.215.111
※ 編輯: AprisYeh        來自: 125.231.215.111      (12/08 00:38)
※ 編輯: AprisYeh        來自: 125.231.215.111      (12/08 00:38)