jackyq

¥i¯à³o¼Ë´N¥i¥H
For M = 2 To X
If Sheets("©ú²Ó").Cells(M, 1) = Sheets("¥[ªo¬ö¿ý¿é¤J­×§ï").Cells(3, 2) Then
          For c2 = 2 To 90 Step 2
              Sheets("©ú²Ó").Cells(M, c2).Resize(, 2) = Sheets("¥[ªo¬ö¿ý¿é¤J­×§ï").Cells(c2 / 2 + 4,  2).Resize(, 2)
          Next
y = y + 1
End If
Next