作者AprisYeh (阿普)
看板Visual_Basic
标题Re: [VBA ] 新手..想使用EXCEL内建函数执行回圏
时间Mon Dec 8 00:37:21 2008
把回圈慢慢试了又试..似乎是写出来了
现在想请问若我将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)