標題:
[發問]
請問:將資料貼到對應名稱的工作表中方法...
[打印本頁]
作者:
a_nanami
時間:
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
附上檔案 [attach]27110[/attach]
作者:
葉國洲
時間:
2017-4-29 14:49
Sub Macro()
If Worksheets("送審表單").Range("a2") <> "" Then
Data = [a2:f6]
With Worksheets(Data(1, 1))
.Activate
.Range("A65536").End(xlUp).Offset(1, 0).Resize(, 6) = Data
End With
End If
End Sub
複製代碼
回復
1#
a_nanami
作者:
a_nanami
時間:
2017-4-29 16:35
實在太感謝了 :D
作者:
准提部林
時間:
2017-5-1 17:38
Sub Macro()
With Worksheets("送審表單")
If .[A2] = "" Then Exit Sub
.[a2:f2].Copy Sheets(.[A2].Value).[A65536].End(xlUp)(2)
End With
End Sub
歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)