½Ð°Ý¦³¤°»ò¿ù,¿ù¦b­þ¸Ì

john2006168

sub namerecord()
Dim friendname As String
Dim i As Integer
i = 2
For i = 2 To 50

Worksheets("sample").Copy after:=Worksheets(Worksheets.Count)
Worksheets(Worksheets.Count).name = friendname
If Worksheets("Main").Cells(2, 2).Value = "friendname" Then Worksheets(Worksheets.Count).Cells(2, 2).Value
i = i + 1
End If

End Sub

mark15jill

¦³  for  «oµL next for
¥t¥~ ±z©Òµoªº³o­Ó §Ú­è¦³´ú¸Õ¤F¤@¤U
¦ý¬O °£¤F¬¡­¶¼Æ¶q¦³¼W¥[¥H¥~
¦ü¥G¬Ý¤£¥X¦³¨ä¥L¥\¯à...
·|Åܦ¨
sample(1)
sample(2)
sample(3)
sample(4)
³o¼Ë...
¤£¦n·N«ä ¤p§Ì¥\¤O¤£°÷ ¶È´ú¸Õ¥X³o­Ó

GBKEE

¦^´_ 1# john2006168
¥t¥~ÁÙ¦³
If Worksheets("Main").Cells(2, 2).Value = "friendname" Then Worksheets(Worksheets.Count).Cells(2, 2).Value= "???"

john2006168

¦^´_ 3# GBKEE


    If Worksheets("Main").Cells(i, 2).Value = friendname Then Worksheets(Worksheets.Count).Cells(i, 2).Value=friendname