- ©«¤l
- 913
- ¥DÃD
- 150
- ºëµØ
- 0
- ¿n¤À
- 1089
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- office 2019
- ¾\ŪÅv
- 50
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2011-8-28
- ³Ì«áµn¿ý
- 2023-7-19
|
Dear,
§Ú·Q¥HBÄ檺¸ê®Æ¦C¼Æ¬°·Ç,¦bAÄæ¦Û°Ê²£¥Í¬y¤ô¸¹(±qA2¶}©l¥H1.2.3¶ñ¤J)
¥i¬O¥X²{³£¬OBÄ檺Á`¦C¼Æ,½Ð°Ý¬OþÓ¨BÆJ...¦³°ÝÃD??
With Workbooks("²z³f³æ.xlsx").Sheets("q³æ")
Workbooks("²z³f³æ.xlsx").Sheets("q³æ").Activate
xRow = Cells(Cells.Rows.Count, "B").End(xlUp).Row
J = 1
For J = 1 To xRow
Range("A2:A" & xRow).Value = J
J = J + 1
Next
End With
End Sub |
|