一站直销 > excel中如何用VB实现在同一列中查找相同颜色单元格之间的数据，并在前一列做同一标记

excel中如何用VB实现在同一列中查找相同颜色单元格之间的数据，并在前一列做同一标记

2025-04-08 14:48:22

推荐回答（1个）

回答1：

假定原数据在ABC三列，通过窗体设置一个按钮，输入以下代码：

Sheet1.Range("B:B").Insert
Dim i, j, k, l As Integer
i = 1
k = 0
j = Application.WorksheetFunction.CountA(Sheet1.Range("C:C"))
For i = 2 To j
l = Sheet1.Cells(i, 3).Interior.ColorIndex
If l = 50 Then
k = k + 1
End If
Sheet1.Cells(i, 2).Value = "a" & k
Next