- ©«¤l
- 172
- ¥DÃD
- 39
- ºëµØ
- 20
- ¿n¤À
- 177
- ÂI¦W
- 0
- §@·~¨t²Î
- Microsoft Windows XP
- ³nÅ骩¥»
- Microsoft Office 2003
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- °ª¶¯
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2023-3-19
|
±znªº¬O³o¼Ë¶Ü?
Sub ValCopy()
Dim lRowEnd As Long
lRowEnd = Worksheets("Sheet3").Range("B65536").End(xlUp).Row + 1
Worksheets("Sheet1").Range("B2:K2").Copy Worksheets("Sheet3").Cells(lRowEnd, 2)
End Sub |
-
-
Book1.rar
(6.91 KB)
|