返回列表下一主題上一主題發帖

[發問] 請問:將資料貼到對應名稱的工作表中方法...

a_nanami

中學生 Rank: 2

帖子: 29
主題: 11
精華: 0
積分: 70
點名: 0
作業系統: WINDOWS 10
軟體版本: Office 2007
閱讀權限: 20
性別: 女
註冊時間: 2010-7-31
最後登錄: 2023-8-9

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2017-4-29 00:43 | 顯示全部帖子

[發問] 請問:將資料貼到對應名稱的工作表中方法...

點一下按紐，讓 A2:F2 自動新增(貼)到對應的工作表中的(工作表約有100個)
目前只會以下的方法
Sub Macro()
With Worksheets("表1")
If Worksheets("送審表單").Range("a2") = "" Then Exit Sub
Worksheets("送審表單").Range("a2:f2").copy .Range("A65536").End(xlUp).Offset(1, 0)
End With
End Sub

附上檔案