標題: [發問] VBA 關鍵字對應貼上問題 [打印本頁]

---

作者: vm3503ru8    時間: 2017-5-1 11:00     標題: VBA 關鍵字對應貼上問題

請問 如何在這個000 工作表內

找到 A1 儲存格 與 B2 儲存格名稱
然後 把C1的金額
貼到001工作表內的
對應日期與名稱
[attach]27126[/attach]
[attach]27127[/attach]

---

作者: 准提部林    時間: 2017-5-1 11:06

發帖時, 只憑文字及圖片是不夠的,
最好壓縮檔案上傳!!!

---

作者: vm3503ru8    時間: 2017-5-1 11:11

[attach]27128[/attach]

這裡 @@
不好意思

---

作者: 准提部林    時間: 2017-5-1 17:27

Sub TEST()
Dim xR As Range, uSht As Worksheet, C, R
Set uSht = Sheets("001")
Application.ScreenUpdating = False
With Sheets("000")
　　　C = Application.Match(.[A1], uSht.Rows(1), 0)
　　　If IsError(C) Then Exit Sub
　　　For Each xR In Range(.[A2], .Cells(Rows.Count, 1).End(xlUp))
　　　　　R = Application.Match(xR, uSht.[A:A], 0)
　　　　　If xR <> "" And IsNumeric(R) Then uSht.Cells(R, C) = xR(1, 2).Value
　　　Next
End With
End Sub

---

作者: vm3503ru8    時間: 2017-5-1 18:17

版主 你實在太厲害了.....-.-
強阿

這是我要的

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)