標題: [發問] 找對應 [打印本頁]

---

作者: 198188    時間: 2012-11-9 17:26     標題: 找對應

Private Sub CommandButton1_Click()
Dim i%, j%, t%

i = Sheet1.Cells(65536, 1).End(xlUp).Row
j = Sheet2.Cells(65536, 1).End(xlUp).Row

For p = 1 To i
t = 1
For k = 1 To j
   If Sheet1.Cells(p, 1).Value = Sheet2.Cells(k, 1).Value Then
   Sheet1.Cells(p, 1).Offset(0, t).Value = Sheet2.Cells(k, 1).Offset(0, 1).Value
   t = t + 1
   End If
Next k
Next p
End Sub

請問要找兩個不同的excel那麼應該如何改？

---

作者: Hsieh    時間: 2012-11-9 17:50

回復 1# 198188

一段你都無法得到正確結果的程式碼，如何讓別人了解需求呢?
上傳檔案加以說明吧

---

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