Question

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

如图，

右边是源数据，左边是要实现的效果，具体要求是将两个有颜色单元格之间的数据用a1,a2...an按顺序来标记，哪位大神帮忙~~~多谢~除了VB还能否有别的办法?

Answer 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

Answer 2

用vba解决是简单的，用公式解决就比较有挑战。你要哪种方法？

追问

有什么公式可以实现呢？

追答

要获取单元格颜色的公式只有宏表公式：

get.cell(38,A1)

一两句说不清，你看图吧。