VBA颜色填充宏从行中的一张表到列中的另一张表

Question

对于 Excel VBA 来说还是很新的。我需要有条件地从另一个工作表上从左到右读取的单元格中复制颜色填充，并将这些颜色复制到列中的另一个工作表上。我遇到的最大问题是组织我的嵌套 for 循环。这个想法是用颜色表示的输入填充一个 7x7 数组。 7x7 数组本身将完全由列填充，但它会读取另一个工作表中的行。下面的代码不起作用。

Sub colorfillcopy()


  Dim i As Integer, j As Integer, k As Integer, l As Integer, m As Integer, 
  lastrow As Long


Dim Sourcews As Worksheet, Transferws As Worksheet
Dim row1 As Range, row2 As Range, row3 As Range, row4 As Range, row5 As 
Range, row6 As Range, row7 As Range
Dim rngCopy As Range
Dim rngPaste As Range




Set Sourcews = ThisWorkbook.Sheets("Source")
Set Transferws = ThisWorkbook.Sheets("Transfer")

Transferws.Range("row1:row7").Interior.Color = xlNone

lastrow = Sourcews.Cells(Sourcews.Rows.Count, "A").End(xlUp).row
lastrowgrid = Transferws.Cells(Rows.Count, 3).End(xlUp).row

For i = 2 To lastrow



         If Sourcews.Range("AA" & i).Value = " Conditionally data" And Transferws.Cells(18, 
                        Sourcews.Columns.Count).End(xlToLeft).Column Then

        For j = 1 To 7

                   For k = 1 To 7

                 Sourcews.Range("8 ,j+1").Interior.Color = 
                            Transferws.Range("P:V").Interior.Color



                Next k

         Next j

    End If



Next i

End Sub

Answer 1

再次，Chicken_Milk；我最近在这方面帮了你一些忙！

我看到的第一个问题是“k”的循环，但没有看到 k。您拥有的循环应该足够了，因为您正在为 i 使用循环，如果为真，您正在为 j 循环。我已经更正了几个错误，例如将项目放在不同的行上（如果你想让东西结转到另一行，你需要使用下划线）。 j循环中的Range改成了Cells，去掉了""（如果是range，就类似于Range("A" & j+1)，而不是逗号。

Dim i As Integer, j As Integer, k As Integer, l As Integer, m As Integer, lastrow As Long
Dim Sourcews As Worksheet, Transferws As Worksheet
Dim row1 As Range, row2 As Range, row3 As Range, row4 As Range, row5 As Range, row6 As Range, row7 As Range, rngCopy As Range,  rngPaste As Range

Set Sourcews = ThisWorkbook.Sheets("Source")
Set Transferws = ThisWorkbook.Sheets("Transfer")

Transferws.Range("row1:row7").Interior.Color = xlNone

lastrow = Sourcews.Cells(Sourcews.Rows.Count, "A").End(xlUp).row
lastrowgrid = Transferws.Cells(Rows.Count, 3).End(xlUp).row

For i = 2 To lastrow
    If Sourcews.Range("AA" & i).Value = " Conditionally data" And Transferws.Cells(18,Sourcews.Columns.Count).End(xlToLeft).Column Then
        For j = 1 To 7
            Sourcews.Cells(8 ,j+1).Interior.Color =Transferws.Range("P:V").Interior.Color
            Next j
        End If
    Next i

我会说，我对你的 If 语句有点困惑，第二个条件的要求是什么（“如果 rng=B 和 x 则”而不是“如果 rng=B 和 x=A 则”） .