-1

我想在excel VBA中输入公式时得到一些帮助我假设在不同的列中输入某种突出显示颜色（在本例中为绿色）的所有数字，但在列范围内的同一行中。

Excel表1

为了让事情更清楚，我在上面上传了一张图片。该图像中的表格在最右边的列中说明了我想要的结果。如果可以显示相同颜色的两个或多个单元格值，我也希望它。

绿色细节：http ://www.htmlcsscolor.com/hex/00B050

任何帮助将不胜感激，请向我询问您需要的任何问题。谢谢你。

编辑：如果可能的话，我能否获得一个代码，在单独的列中显示两个或多个绿色单元格值，而不是与 + 号一起显示？

4

1 回答 1

0

您的数据似乎在 Excel 表中

假设是这样并且表名是“MyTable”，您可以尝试以下代码：

Option Explicit

Sub main()
    Dim row As ListRow
    Dim icol As Long
    Dim formula As String

    For Each row In ActiveSheet.ListObjects("MyTable").ListRows
        formula = ""
        For icol = 1 To row.Range.Count - 1
            With row.Range(1, icol)
                If .Interior.Color = RGB(0, 176, 80) Then formula = formula & .value & "+" '.Address(False, False)
            End With
        Next icol
        If formula <> "" Then row.Range(1, icol).value = Left(formula, Len(formula) - 1)
    Next row
End Sub
于 2016-09-25T15:28:41.943 回答