標題: [發問] 請問:將資料貼到對應名稱的工作表中方法... [打印本頁]

---

作者: 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

1. Sub Macro()
   
2.    If Worksheets("送審表單").Range("a2") <> "" Then
   
3.       Data = [a2:f6]
   
4.       With Worksheets(Data(1, 1))
   
5.         .Activate
   
6.         .Range("A65536").End(xlUp).Offset(1, 0).Resize(, 6) = Data
   
7.       End With
   
8.    End If
   
9. 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/)