作者AprisYeh (阿普)
看板Visual_Basic
标题Re: [VBA ] 新手..想使用EXCEL内建函数执行回圏
时间Thu Dec 4 17:04:02 2008
不知道是不是我把问题想的太复杂@@
但是我先贴上我现在所写的程式码...一步一步测试回圈..
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
1F：推 ClubT:请研究 Do...Loop的回圈 12/04 18:11
2F：→ MOONRAKER:照我看for each真是恩物啊，太方便了说 12/04 20:19