按代码将数量与字体更改匹配

Question

我之前曾问过一个有关如何从Sheet2的数组更改匹配项字体的问题。现在，我想进一步介绍一下，并将匹配的数量返回与红色字体匹配的Sheet1。我真的很想使用vba来变得更加熟悉和学习。

以下是我的代码：

Dim i, j, x As Integer
Dim box1, box2, box3, box4, box5, box6, box7, box8, box9 As String
Dim c As Range 'Define two ranges so that we can loop through both sheets to check the boxes
Dim d As Range
Sheets(1).Range("B11:B30, F11:F30").Font.ColorIndex = 0 'Remove the cell styles to apply new ones
box1 = Sheets(1).Cells.Range("C2")
box2 = Sheets(1).Cells.Range("C4")
box3 = Sheets(1).Cells.Range("C6")
box4 = Sheets(1).Cells.Range("F2")
box5 = Sheets(1).Cells.Range("F4")
box6 = Sheets(1).Cells.Range("F6")
box7 = Sheets(1).Cells.Range("I2")
box8 = Sheets(1).Cells.Range("I4")
box9 = Sheets(1).Cells.Range("I6")
Qty = Sheets(1).Cells.Range("D10")

'This refers to the checkbox
For i = 1 To 10 'Loop to find the checked box in sheet2

    'box 1 items and quantites
    If Sheets(2).Cells(1, i) = box1 And Qty Then 'Check for checked box
        For Each c In Sheets(2).Range(Sheets(2).Cells(2, i), Sheets(2).Cells(6, i))

            If Sheets(2).Range(Sheets(2).Cells(2, i), Sheets(2).Cells(6, i)) = Sheets(1).Range("D11:D30").Value And Sheets(2).Range(Sheets(2).Cells(2, i), Sheets(2).Cells(6, i)) <> "" Then
                x = x
                Else
                x = x + 1
            End If

            For Each d In Sheets(1).Range("B11:B30, F11:F30")
                If c = d Then
                    Sheets(1).Cells(d.Row, d.Column).Font.ColorIndex = 3 'changes matching item to red font
                End If
            Next d
        Next c

请注意，到目前为止，我只是在退还第1栏的数量。这就是为什么我没有发布完整的代码。请查看图片，以更好地了解我从中提取的列表：Box Lists