返回列表 上一主題 發帖

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

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

點一下按紐,讓 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

附上檔案   TEST02.rar (14.04 KB)

實在太感謝了 :D

TOP

        靜思自在 : 一個人不怕錯,就怕不改過,改過並不難。
返回列表 上一主題