作者jack19 (情不自禁)
看板Visual_Basic
标题[VBA ] 资料选取
时间Thu Apr 23 21:01:17 2009
小弟是个新手，请问一下
Sub test()
k = 1
For I = 1 To Application.WorksheetFunction.Count(Range("a:a"))
Set x1 = Cells(I, 1)
For j = 1 To Application.WorksheetFunction.Count(Range("c:c"))
Set x2 = Cells(j, 3)
If x1 = x2 Then
x1.Copy
Cells(k, 5).Select
ActiveCell.PasteSpecial xlPasteAll
k = k + 1
End If
Next j
Next I
End Sub
这是我的程式码，我是希望说当栏位A与栏位C一样时，则复制栏位A到栏位E
谢谢
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.134.93.26
1F：→ IamCoolKing:if x1 = x2 then Cells(k,5) = x1 end if 04/24 10:42
2F：→ IamCoolKing:原po的程式哪边有问题呢? 04/24 10:43
3F：→ jack19:问题已解决了，谢谢 04/25 12:45