我正在嘗試將資料從資料庫傳輸到具有相同模板的作業簿中的多個作業表中。但是，我不想在復制時忽略公式。我當前的宏在傳輸資料時給出了回圈參考錯誤。
如何在通過回圈程序將資料復制到不同模板時忽略公式。
此外，我想知道如何將資料從參考wkSht.Name到模板表不同列的多個/不同列傳輸。
以下代碼僅將資料從Range(cell.Offset(0, 18), cell.Offset(18, 18)主表傳輸到O17同一作業簿的模板表的單元格。
任何人都可以更新代碼并添加僅復制單元格值而不是公式的條件。
Sub FC()
Dim wkSht As Worksheet
Dim cell As Range
For Each cell In Sheets("Combine").Range("A4:A600").Cells
For Each wkSht In ThisWorkbook.Worksheets
If cell.Value = wkSht.Name Then
Sheets("Combine").Range(cell.Offset(0, 18), cell.Offset(18, 18)).Copy wkSht.Range("O17")
End If
Next wkSht
Next cell
Application.ScreenUpdating = True
End Sub
uj5u.com熱心網友回復：
請測驗下一個代碼：
Sub FC()
Dim wkSht As Worksheet, wsC As Worksheet, rngSearch As Range
Dim shNCell As Range
Set wsC = Sheets("Combine")
Set rngSearch = wsC.Range("A4:A600")
For Each wkSht In ThisWorkbook.Worksheets
'find the sheet name cell in rngSearch:
Set shNCell = rngSearch.Find(what:=wkSht.Name, LookIn:=xlValues, Lookat:=xlWhole, MatchCase:=False)
'if found:
If Not shNCell Is Nothing Then
'copy the below built array in the necessary place
wkSht.Range("O17").Resize(19, 1).value = wsC.Range(shNCell.Offset(0, 18), shNCell.Offset(18, 18)).value
End If
Next wkSht
End Sub
未測驗，但這應該是想法。如果出現問題，請告訴我它有什么問題（或沒有……）。
在完成一些緊急的事情后，我將在幾分鐘內評論代碼行......
uj5u.com熱心網友回復：
該公式也適用于不同的單元格
轉載請註明出處，本文鏈接：https://www.uj5u.com/caozuo/366313.html