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

[AprisYeh (阿普)]

不知道是不是我把問題想的太複雜@@

但是我先貼上我現在所寫的程式碼...一步一步測試迴圈..

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 = Columns("G:L")
j = 2
k = 3
l = 5
        mykey = Cells(j, 1).Value
        For i = 2 To 6
            mycnt = WorksheetFunction.VLookup(mykey, myrng, (i), False)
            Cells(l, k).Value = mycnt
            l = l + 1
        Next
j = 3
k = 4
l = 5
        mykey = Cells(j, 1).Value
        For i = 2 To 6
            mycnt = WorksheetFunction.VLookup(mykey, myrng, (i), False)
            Cells(l, k).Value = mycnt
            l = l + 1
        Next

簡單的說mykey搜尋cell(j,1)的value..(j不確定會到多少)

然後從資料欄位G:L中找尋相對應的value( 事實上就在G欄(i=1) )...

然後要把相同的列資料(i=2 to 6)都抓出,丟到cells(l,k)裡面..

現在的問題是:

1.迴圈i跟j都不確定會到多少..我應該用哪個來寫?

2.現在是將當j=2 和j=3抓出來的5個值放在不同的K欄中，

  但真正想要的是將這10個值兩兩累加(j=2,i=2的值加上j=3,i=2的值)..

  請問應該如何寫?

不知道是否可以針對這兩個問題給我一些解析,謝謝><"




--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 140.128.118.180
推 ClubT:請研究 Do...Loop的迴圈
→ MOONRAKER:照我看for each真是恩物啊，太方便了說