如何將數據複製到工作簿中的第一張Excel工作表中的多個工作表

-1

我想從第一個工作表將單元格A103複製到Y148到我Excel工作簿中的每個工作表。我應該使用哪些代碼？如何將數據複製到工作簿中的第一張Excel工作表中的多個工作表

2017-03-17 sammit vartak

您將需要一個'For'循環遍歷從工作表2到最後一個工作表的所有工作表，然後在該循環內複製範圍。 StackOverflow不是免費的代碼寫入服務。你需要顯示你已有的代碼。 –

這是一個四步的方法。 1.設計以純的話，像動作，

' loop through rows 103 to 148 in Sheet1 
' copy the row 
' loop through all other sheets in the workbook 
' paste the row in the first empty row at the bottom of each

研究每個動作的代碼。例如，谷歌的「VBA Excel循環行」

令人驚訝的是，你會發現許多隨時可以使用的代碼，以及你會多快學會做不可能的事情。

回到這裏有任何你自己無法解決的問題。

來源

2017-03-17 07:35:44 Variatus

根據「我excel工作簿中的每張紙」的含義，這可能比通過所有其餘工作表循環粘貼操作要快。

Sub galumph() 
    Dim w As Long, wss As String, wsa as Variant 

    For w = 2 To Worksheets.Count 
     wss = wss & IIf(CBool(Len(wss)), ";", vbNullString) & Worksheets(w).Name 
    Next w 
    wsa = Split(wss, ";")     'make array of worksheet names 

    Worksheets(1).Range("A103:Y148").Copy 'copy from A103:Y148 on Sheet1 
    Worksheets(wsa).Select     'select all of the remaining worksheets 
    Worksheets(wsa(0)).Range("A1").Activate 'activate the destination on one of the worksheets 
    Worksheets(wsa(0)).Paste    'paste the data into all worksheets 
End Sub

來源

2017-03-18 00:03:10 Jeeped

如何將數據複製到工作簿中的第一張Excel工作表中的多個工作表

回答

相關問題