[VBA ] 資料選取

看板Visual_Basic作者 (情不自禁)時間16年前 (2009/04/23 21:01), 編輯推噓0(0推 0噓 3→)
留言3則, 2人參與, 最新討論串1/1
小弟是個新手，請問一下 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
→
04/24 10:42, , 1F
if x1 = x2 then Cells(k,5) = x1 end if
04/24 10:42, 1F
→
04/24 10:43, , 2F
原po的程式哪邊有問題呢?
04/24 10:43, 2F
→
04/25 12:45, , 3F
問題已解決了，謝謝
04/25 12:45, 3F
‣ 更多 jack19 的文章
文章代碼(AID): #19y6QUTI (Visual_Basic)