[µo°Ý] ¸ê®Æ®w§ì¨ú¸ê®Æ°ÝÃD½Ð±Ð

rouber590324

DEAR ALL ¤j¤j
  1¦p¤U³Ì²×RRA3100¤À¬q°õ¦æRRA1  RRA2 RRA3 «áµ²ªGOK
  2¦ý¤p§Ì¥u·|¤À RRA1  RRA2 RRA3 ¤À¼gµ{¦¡.
  3½Ð±Ð¦p¦ó±N RRA1  RRA2 RRA3 ¼g¦¨¦P¤@µ{¦¡¤¤
  4·Ð¤£§[½ç±Ð   THANKS*10000

Sub RRA3100()
Application.Run "RRA1"
Application.Run "RRA2"
Application.Run "RRA3"
End Sub

Sub RRA1()
Sheet2.[A2:A65536].ClearContents
X = Sheet2.[A65536].End(xlUp).Row
    For B = 2 To 101
     Sheet2.Cells(X, 1) = Sheet1.Cells(2, 1) & Sheet1.Cells(1, B) & " " & Sheet1.Cells(2, B)
        X = X + 1
    Next
End Sub

Sub RRA2()
X = Sheet2.[A65536].End(xlUp).Row
    For B = 2 To 101
     Sheet2.Cells(X + 1, 1) = Sheet1.Cells(3, 1) & Sheet1.Cells(1, B) & " " & Sheet1.Cells(3, B)
        X = X + 1
    Next
End Sub

Sub RRA3()
X = Sheet2.[A65536].End(xlUp).Row
    For B = 2 To 101
     Sheet2.Cells(X + 1, 1) = Sheet1.Cells(4, 1) & Sheet1.Cells(1, B) & " " & Sheet1.Cells(4, B)
        X = X + 1
    Next
End Sub

rouber590324

¦p¤U²×©ó¸Õ¥X¨Ó©Ô ·P®¦

Sub §ì¨ú¤ÀªR100­¼100¸ê®Æ2()
X = Sheet2.[A65536].End(xlUp).Row
K = Sheet1.[A65536].End(xlUp).Row
'MsgBox K
M = Sheet1.Cells(K, Columns.Count).End(xlToLeft).Column()
'MsgBox M
  For A = 2 To K
    For B = 2 To M

     Sheet2.Cells(X + 1, 1) = Sheet1.Cells(A, 1) & Sheet1.Cells(1, B) & " " & Sheet1.Cells(A, B)
        X = X + 1
     Next
    Next
End Sub