作者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