°»¿ù , ¤£À´¥¦¿ùªº©w¸qn¦p¦óקï ?
- ©«¤l
- 40
- ¥DÃD
- 11
- ºëµØ
- 0
- ¿n¤À
- 100
- ÂI¦W
- 0
- §@·~¨t²Î
- Win8
- ³nÅ骩¥»
- Office2013
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- Taiwan
- µù¥U®É¶¡
- 2014-12-9
- ³Ì«áµn¿ý
- 2021-7-2
|
°»¿ù , ¤£À´¥¦¿ùªº©w¸qn¦p¦óקï ?
' «Ø¥ß¬d¸ß³sµ²
Sub «Ø¥ß¬d¸ß³sµ²()
With Sheets("List")
.Activate
LastRow = .Cells(1, "A").End(xlDown).Row - 1
For r = 2 To LastRow
.Cells(r, "K").Select
IdSheet = .Cells(r, "A")
Sheets("IdSheet").Select.Activate
Next r
End With
End Sub |
|
|
|
|
|
|
- ©«¤l
- 40
- ¥DÃD
- 11
- ºëµØ
- 0
- ¿n¤À
- 100
- ÂI¦W
- 0
- §@·~¨t²Î
- Win8
- ³nÅ骩¥»
- Office2013
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- Taiwan
- µù¥U®É¶¡
- 2014-12-9
- ³Ì«áµn¿ý
- 2021-7-2
|
¦^´_ 2# k123456770
ÁÂÁ¦^ÂÐ ,
ÁÙ¬O¬å±¼«ÀY¨Ó¹L¤F ......... |
|
|
|
|
|
|
- ©«¤l
- 40
- ¥DÃD
- 11
- ºëµØ
- 0
- ¿n¤À
- 100
- ÂI¦W
- 0
- §@·~¨t²Î
- Win8
- ³nÅ骩¥»
- Office2013
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- Taiwan
- µù¥U®É¶¡
- 2014-12-9
- ³Ì«áµn¿ý
- 2021-7-2
|
¦^´_ 5# sghsgh1111
ÁÂÁ , §ÚCOPY¨ÓCOPY¥h , ©Ò¥H¤£ª¾°ÝÃD¦p¦ó¸Ñ¨M ,
¤w§R°£¤£¥Î³oÓ¨Ò¤l¤F ... |
|
|
|
|
|
|