[µo°Ý] §ä¹ïÀ³

198188

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

½Ð°Ý­n§ä¨â­Ó¤£¦Pªºexcel¨º»òÀ³¸Ó¦p¦ó§ï¡H

Hsieh

¦^´_ 1# 198188

¤@¬q§A³£µLªk±o¨ì¥¿½Tµ²ªGªºµ{¦¡½X¡A¦p¦óÅý§O¤H¤F¸Ñ»Ý¨D©O?
¤W¶ÇÀÉ®×¥[¥H»¡©ú§a