我是VBA的新手,下面的代碼是我迄今爲止管理的,但是我想問問有人可以幫助格式化和公式複製嗎?VBA複製粘貼表格和公式
我有下面的代碼在我的項目運行,從一個名爲「更新質量檢查的數據」,基於由1 2方式的用戶名其他工作表的工作表傳輸數據,或者:
- 通過觀察工作表的用戶名已經存在,只需複製相關數據 ;或者,
- 通過創建與 用戶名作爲WS名稱的新工作表,並從數據表中複製數據
我想什麼時候創建一個新的用戶表格式添加會並將第一張用戶表格中的forumlas複製到新工作表和每個創建的附加用戶表中。
我見過很多線程來複制粘貼和剪貼板和pastespecial之間的參數,但現在我很困惑,不知道如何做到這一點目前不存在的工作表。有些人可以幫我嗎?
Public Sub transfer()
Dim ws As Worksheet, wsName As Worksheet
Dim lRow As Long, lPaste As Long
Dim sName As String
Set ws = Worksheets("Update Quality Check Data")
With ws
For lRow = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
sName = .Cells(lRow, 2)
On Error Goto NoSheettFound
Jumper:
Set wsName = Worksheets(sName)
On Error Goto 0
lPaste = wsName.Cells(Rows.Count, 3).End(xlUp).Row + 1
.Cells(lRow, 1).Copy Destination:=wsName.Cells(lPaste, 3)
.Cells(lRow, 3).Copy Destination:=wsName.Cells(lPaste, 4)
Next lRow
End With
Exit Sub
NoSheettFound:
Set wsName = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
wsName.Name = sName
ws.Select
Goto Jumper
End Sub
親切的問候
約翰
謝謝克裏,看起來不錯。對不起,聽起來無知,但你可以指導如何做到這一點?比方說,我的模板工作表被稱爲「鮑勃」,對於消光和公式在範圍D5:G10。 –
@JohnWilliams,你可以做這樣的:'子TestBob() 昏暗的WS作爲工作表設置 WS =工作表( 「鮑勃」) 呼叫格式1(ws.Range( 「D5:G10」)) End Sub' ...這當然假設你在你的模板中有相同的單元格格式。 –
@JohnWilliams,如果我有幫助,不要忘記提高我的答案。 –