將多個單元格顏色從一個工作表復制到另一個工作表

Question

關於構建VBA代碼，我是新手。 我想自動將單元格顏色從一個工作表復制到另一個工作表。

我在下面提供了一些圖像，以幫助解釋我希望實現的目標：

工作表1-3月18日：

工作表7-網站1：

看工作表1-3月18日，我想將單元格顏色從第3行（從B3到X3）復制到工作表7-站點1的B列（從B3到B23）。 我還有其他工作表，從4月18日到12月18日，從站點2到站點6，我想執行類似的操作。

最終結果將把月份工作表中的信息匯總到站點工作表中。

Answer 1

這是一個簡單的例程，演示了如何根據第二張紙上的單元格顏色為一張紙上的單元格着色。 完全理解此代碼的工作原理后，您應該可以對其進行修改以適合您的情況。 如果您有任何問題，請告訴我。

Sub colorCells()
Dim sh1 As Worksheet, sh2 As Worksheet
Dim r1 As Range, r2 As Range, numToColor As Integer, i As Integer
Set sh1 = Worksheets("1")
Set sh2 = Worksheets("2")
Set r1 = sh1.Range("B3")
Set r2 = sh2.Range("B3")
numToColor = 10
For i = 1 To numToColor
  r2.Offset(0, i).Interior.Color = r1.Offset(0, i).Interior.Color
Next i
End Sub

Answer 2

你可以試試這個

Sub CopyColors

    Worksheets("Mar 18").Range("B3:X3").Copy
    Worksheets("site 1").Range("B3").PasteSpecial Transpose:=True

 End Sub

並擴展到您的需求

Answer 3

試試這個代碼：

Sub CopyColor()
Dim i As Long: i = 1
Dim cell As Range
'loop through all cells in specified range in specified worksheet
For Each cell In Worksheets("Mar 18").Range("B3:X3")
    ' copy color and paste it to another cells in worksheet Site 1
    Worksheets("Site 1").Cells(i, 2).Interior.Color = cell.Interior.Color
    i = i + 1
Next
End Sub