Board logo

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

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