½Ð°Ý¦p¦ó²¤Æ¡AÁÂÁÂ

caimy

½Ð°Ý¦p¦ó²¤Æ¤U¦Cµ{¦¡¡AÁÂÁ ^^

Sub ­×§ï¦^¦s()
X = Sheets("©ú²Ó").[b65536].End(xlUp).Row
S = Sheets("¾÷ªoÁ`­p").[c65536].End(xlUp).Row
For M = 2 To X
If Sheets("©ú²Ó").Cells(M, 1) = Sheets("¥[ªo¬ö¿ý¿é¤J­×§ï").Cells(3, 2) Then
Sheets("©ú²Ó").Cells(M, 2) = Sheets("¥[ªo¬ö¿ý¿é¤J­×§ï").Cells(5, 2)
Sheets("©ú²Ó").Cells(M, 3) = Sheets("¥[ªo¬ö¿ý¿é¤J­×§ï").Cells(5, 3)
Sheets("©ú²Ó").Cells(M, 4) = Sheets("¥[ªo¬ö¿ý¿é¤J­×§ï").Cells(6, 2)
Sheets("©ú²Ó").Cells(M, 5) = Sheets("¥[ªo¬ö¿ý¿é¤J­×§ï").Cells(6, 3)
Sheets("©ú²Ó").Cells(M, 6) = Sheets("¥[ªo¬ö¿ý¿é¤J­×§ï").Cells(7, 2)
Sheets("©ú²Ó").Cells(M, 7) = Sheets("¥[ªo¬ö¿ý¿é¤J­×§ï").Cells(7, 3)
Sheets("©ú²Ó").Cells(M, 8) = Sheets("¥[ªo¬ö¿ý¿é¤J­×§ï").Cells(8, 2)
Sheets("©ú²Ó").Cells(M, 9) = Sheets("¥[ªo¬ö¿ý¿é¤J­×§ï").Cells(8, 3)
Sheets("©ú²Ó").Cells(M, 10) = Sheets("¥[ªo¬ö¿ý¿é¤J­×§ï").Cells(9, 2)
Sheets("©ú²Ó").Cells(M, 11) = Sheets("¥[ªo¬ö¿ý¿é¤J­×§ï").Cells(9, 3)
Sheets("©ú²Ó").Cells(M, 12) = Sheets("¥[ªo¬ö¿ý¿é¤J­×§ï").Cells(10, 2)
Sheets("©ú²Ó").Cells(M, 13) = Sheets("¥[ªo¬ö¿ý¿é¤J­×§ï").Cells(10, 3)
Sheets("©ú²Ó").Cells(M, 14) = Sheets("¥[ªo¬ö¿ý¿é¤J­×§ï").Cells(11, 2)
Sheets("©ú²Ó").Cells(M, 15) = Sheets("¥[ªo¬ö¿ý¿é¤J­×§ï").Cells(11, 3)
Sheets("©ú²Ó").Cells(M, 16) = Sheets("¥[ªo¬ö¿ý¿é¤J­×§ï").Cells(12, 2)
Sheets("©ú²Ó").Cells(M, 17) = Sheets("¥[ªo¬ö¿ý¿é¤J­×§ï").Cells(12, 3)
Sheets("©ú²Ó").Cells(M, 18) = Sheets("¥[ªo¬ö¿ý¿é¤J­×§ï").Cells(13, 2)
Sheets("©ú²Ó").Cells(M, 19) = Sheets("¥[ªo¬ö¿ý¿é¤J­×§ï").Cells(13, 3)
Sheets("©ú²Ó").Cells(M, 20) = Sheets("¥[ªo¬ö¿ý¿é¤J­×§ï").Cells(14, 2)
Sheets("©ú²Ó").Cells(M, 21) = Sheets("¥[ªo¬ö¿ý¿é¤J­×§ï").Cells(14, 3)
Sheets("©ú²Ó").Cells(M, 22) = Sheets("¥[ªo¬ö¿ý¿é¤J­×§ï").Cells(15, 2)
Sheets("©ú²Ó").Cells(M, 23) = Sheets("¥[ªo¬ö¿ý¿é¤J­×§ï").Cells(15, 3)
Sheets("©ú²Ó").Cells(M, 24) = Sheets("¥[ªo¬ö¿ý¿é¤J­×§ï").Cells(16, 2)
Sheets("©ú²Ó").Cells(M, 25) = Sheets("¥[ªo¬ö¿ý¿é¤J­×§ï").Cells(16, 3)
Sheets("©ú²Ó").Cells(M, 26) = Sheets("¥[ªo¬ö¿ý¿é¤J­×§ï").Cells(17, 2)
Sheets("©ú²Ó").Cells(M, 27) = Sheets("¥[ªo¬ö¿ý¿é¤J­×§ï").Cells(17, 3)
Sheets("©ú²Ó").Cells(M, 28) = Sheets("¥[ªo¬ö¿ý¿é¤J­×§ï").Cells(18, 2)
Sheets("©ú²Ó").Cells(M, 29) = Sheets("¥[ªo¬ö¿ý¿é¤J­×§ï").Cells(18, 3)
Sheets("©ú²Ó").Cells(M, 30) = Sheets("¥[ªo¬ö¿ý¿é¤J­×§ï").Cells(19, 2)
Sheets("©ú²Ó").Cells(M, 31) = Sheets("¥[ªo¬ö¿ý¿é¤J­×§ï").Cells(19, 3)
Sheets("©ú²Ó").Cells(M, 32) = Sheets("¥[ªo¬ö¿ý¿é¤J­×§ï").Cells(20, 2)
Sheets("©ú²Ó").Cells(M, 33) = Sheets("¥[ªo¬ö¿ý¿é¤J­×§ï").Cells(20, 3)
Sheets("©ú²Ó").Cells(M, 34) = Sheets("¥[ªo¬ö¿ý¿é¤J­×§ï").Cells(21, 2)
Sheets("©ú²Ó").Cells(M, 35) = Sheets("¥[ªo¬ö¿ý¿é¤J­×§ï").Cells(21, 3)
Sheets("©ú²Ó").Cells(M, 36) = Sheets("¥[ªo¬ö¿ý¿é¤J­×§ï").Cells(22, 2)
Sheets("©ú²Ó").Cells(M, 37) = Sheets("¥[ªo¬ö¿ý¿é¤J­×§ï").Cells(22, 3)
Sheets("©ú²Ó").Cells(M, 38) = Sheets("¥[ªo¬ö¿ý¿é¤J­×§ï").Cells(23, 2)
Sheets("©ú²Ó").Cells(M, 39) = Sheets("¥[ªo¬ö¿ý¿é¤J­×§ï").Cells(23, 3)
Sheets("©ú²Ó").Cells(M, 40) = Sheets("¥[ªo¬ö¿ý¿é¤J­×§ï").Cells(24, 2)
Sheets("©ú²Ó").Cells(M, 41) = Sheets("¥[ªo¬ö¿ý¿é¤J­×§ï").Cells(24, 3)
Sheets("©ú²Ó").Cells(M, 42) = Sheets("¥[ªo¬ö¿ý¿é¤J­×§ï").Cells(25, 2)
Sheets("©ú²Ó").Cells(M, 43) = Sheets("¥[ªo¬ö¿ý¿é¤J­×§ï").Cells(25, 3)
Sheets("©ú²Ó").Cells(M, 44) = Sheets("¥[ªo¬ö¿ý¿é¤J­×§ï").Cells(26, 2)
Sheets("©ú²Ó").Cells(M, 45) = Sheets("¥[ªo¬ö¿ý¿é¤J­×§ï").Cells(26, 3)
Sheets("©ú²Ó").Cells(M, 46) = Sheets("¥[ªo¬ö¿ý¿é¤J­×§ï").Cells(27, 2)
Sheets("©ú²Ó").Cells(M, 47) = Sheets("¥[ªo¬ö¿ý¿é¤J­×§ï").Cells(27, 3)
Sheets("©ú²Ó").Cells(M, 48) = Sheets("¥[ªo¬ö¿ý¿é¤J­×§ï").Cells(28, 2)
Sheets("©ú²Ó").Cells(M, 49) = Sheets("¥[ªo¬ö¿ý¿é¤J­×§ï").Cells(28, 3)
Sheets("©ú²Ó").Cells(M, 50) = Sheets("¥[ªo¬ö¿ý¿é¤J­×§ï").Cells(29, 2)
Sheets("©ú²Ó").Cells(M, 51) = Sheets("¥[ªo¬ö¿ý¿é¤J­×§ï").Cells(29, 3)
Sheets("©ú²Ó").Cells(M, 52) = Sheets("¥[ªo¬ö¿ý¿é¤J­×§ï").Cells(30, 2)
Sheets("©ú²Ó").Cells(M, 53) = Sheets("¥[ªo¬ö¿ý¿é¤J­×§ï").Cells(30, 3)
Sheets("©ú²Ó").Cells(M, 54) = Sheets("¥[ªo¬ö¿ý¿é¤J­×§ï").Cells(31, 2)
Sheets("©ú²Ó").Cells(M, 55) = Sheets("¥[ªo¬ö¿ý¿é¤J­×§ï").Cells(31, 3)
Sheets("©ú²Ó").Cells(M, 56) = Sheets("¥[ªo¬ö¿ý¿é¤J­×§ï").Cells(32, 2)
Sheets("©ú²Ó").Cells(M, 57) = Sheets("¥[ªo¬ö¿ý¿é¤J­×§ï").Cells(32, 3)
Sheets("©ú²Ó").Cells(M, 58) = Sheets("¥[ªo¬ö¿ý¿é¤J­×§ï").Cells(33, 2)
Sheets("©ú²Ó").Cells(M, 59) = Sheets("¥[ªo¬ö¿ý¿é¤J­×§ï").Cells(33, 3)
Sheets("©ú²Ó").Cells(M, 60) = Sheets("¥[ªo¬ö¿ý¿é¤J­×§ï").Cells(34, 2)
Sheets("©ú²Ó").Cells(M, 61) = Sheets("¥[ªo¬ö¿ý¿é¤J­×§ï").Cells(34, 3)
Sheets("©ú²Ó").Cells(M, 62) = Sheets("¥[ªo¬ö¿ý¿é¤J­×§ï").Cells(35, 2)
Sheets("©ú²Ó").Cells(M, 63) = Sheets("¥[ªo¬ö¿ý¿é¤J­×§ï").Cells(35, 3)
Sheets("©ú²Ó").Cells(M, 64) = Sheets("¥[ªo¬ö¿ý¿é¤J­×§ï").Cells(36, 2)
Sheets("©ú²Ó").Cells(M, 65) = Sheets("¥[ªo¬ö¿ý¿é¤J­×§ï").Cells(36, 3)
Sheets("©ú²Ó").Cells(M, 66) = Sheets("¥[ªo¬ö¿ý¿é¤J­×§ï").Cells(37, 2)
Sheets("©ú²Ó").Cells(M, 67) = Sheets("¥[ªo¬ö¿ý¿é¤J­×§ï").Cells(37, 3)
Sheets("©ú²Ó").Cells(M, 68) = Sheets("¥[ªo¬ö¿ý¿é¤J­×§ï").Cells(38, 2)
Sheets("©ú²Ó").Cells(M, 69) = Sheets("¥[ªo¬ö¿ý¿é¤J­×§ï").Cells(39, 2)
Sheets("©ú²Ó").Cells(M, 70) = Sheets("¥[ªo¬ö¿ý¿é¤J­×§ï").Cells(39, 3)
Sheets("©ú²Ó").Cells(M, 71) = Sheets("¥[ªo¬ö¿ý¿é¤J­×§ï").Cells(40, 2)
Sheets("©ú²Ó").Cells(M, 72) = Sheets("¥[ªo¬ö¿ý¿é¤J­×§ï").Cells(41, 2)
Sheets("©ú²Ó").Cells(M, 74) = Sheets("¥[ªo¬ö¿ý¿é¤J­×§ï").Cells(42, 2)
Sheets("©ú²Ó").Cells(M, 75) = Sheets("¥[ªo¬ö¿ý¿é¤J­×§ï").Cells(43, 2)
Sheets("©ú²Ó").Cells(M, 76) = Sheets("¥[ªo¬ö¿ý¿é¤J­×§ï").Cells(44, 2)
Sheets("©ú²Ó").Cells(M, 77) = Sheets("¥[ªo¬ö¿ý¿é¤J­×§ï").Cells(45, 2)
Sheets("©ú²Ó").Cells(M, 87) = Sheets("¥[ªo¬ö¿ý¿é¤J­×§ï").Cells(55, 2)
Sheets("©ú²Ó").Cells(M, 88) = Sheets("¥[ªo¬ö¿ý¿é¤J­×§ï").Cells(56, 2)
Sheets("©ú²Ó").Cells(M, 89) = Sheets("¥[ªo¬ö¿ý¿é¤J­×§ï").Cells(57, 2)
Sheets("©ú²Ó").Cells(M, 90) = Sheets("¥[ªo¬ö¿ý¿é¤J­×§ï").Cells(58, 2)
Sheets("©ú²Ó").Cells(M, 91) = Sheets("¥[ªo¬ö¿ý¿é¤J­×§ï").Cells(59, 2)
        y = y + 1
        End If
        Next
     ' ´¡¤Jµù¸Ñ()
    Set A_1 = [¥[ªo¬ö¿ý¿é¤J­×§ï!A36]
    Set A_3 = [¥[ªo¬ö¿ý¿é¤J­×§ï!A38]
    Set AAA = [¥[ªo¬ö¿ý¿é¤J­×§ï!A:A]
    Set A_2 = [¾÷ªoÁ`­p!a1]
    Set A_4 = [¾÷ªoÁ`­p!a1]
    For i = 1 To A_2(65536, 1).End(xlUp).Row
    If WorksheetFunction.CountIf(AAA, A_2(i, 1)) > 0 Then
    y = WorksheetFunction.Match(A_2(i, 1), AAA)
    A_2(i, 36).NoteText A_1(y, 2) 'µù¸Ñ
    End If
    Next i
   
    For j = 1 To A_4(65536, 1).End(xlUp).Row
    If WorksheetFunction.CountIf(AAA, A_4(j, 1)) > 0 Then
    y = WorksheetFunction.Match(A_4(j, 1), AAA)
    A_4(j, 37).NoteText A_3(y, 2)
    End If
    Next j

End Sub

lpk187

¦^´_ 1# caimy


    ¥i§_¤W¶ÇÀɮסH

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