- 帖子
- 172
- 主題
- 39
- 精華
- 20
- 積分
- 177
- 點名
- 0
- 作業系統
- Microsoft Windows XP
- 軟體版本
- Microsoft Office 2003
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 高雄
- 註冊時間
- 2010-5-1
- 最後登錄
- 2023-3-19
 
|
您要的是這樣嗎?
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)
|
發表於 2010-5-12 22:00
| 