Question

EXCEL中的一个问题，希望高手能编写一个VBA代码来执行

在第一行的所有单元格中标记出等于“A2+12的若干倍”的数为红色
在第二行的所有单元格中标记出等于“A3+12的若干倍”的数为红色
在第三行的所有单元格中标记出等于“A4+12的若干倍”的数为红色
在第四行的所有单元格中标记出等于“A5+12的若干倍”的数为红色
在第五行的所有单元格中标记出等于“A6+12的若干倍”的数为红色
.........以此类推

Answer 1

‘这问题眼熟啊，试试行不行：
Sub test()
Dim i As Long, j As Long
For i = 2 To [A65536].End(xlUp).Row
For j = 1 To [iv1].End(xlToLeft).Column '如果第一列不做标注可以把j改为2，另假设你的列数是一样的，按第一行的列数为标准，可自己修改
Cells(i - 1, j).Interior.ColorIndex = IIf(Cells(i - 1, j) Mod (Cells(i, 1) + 12) = 0, 3, xlNone)
Next j, i
End Sub

Answer 2

不需要用vba，用条件格式就要以了。
选中A2：Z1000(根据自己的需要选中），然后点格式里面的条件格式，再选公式，在里面输入
=a2/($a2+12)=int(a1/($a2+12)) 再选格中的字体为红色，确定就可以了

Answer 3

Sub 标记()
endrow = Range("A65536").End(xlUp).Row
endcol = Range("iv1").End(xlToLeft).Column
Range(Cells(1, 1), Cells(endrow, endcol)).Select
For i = 2 To endrow
For ii = 1 To endcol
a = Cells(i - 1, ii) Mod (Cells(i, 1) + 12)
If (Cells(i - 1, ii) Mod (Cells(i, 1) + 12)) = 0 Then Cells(i - 1, ii).Interior.ColorIndex = 3
Next
Next
End Sub

追问

执行不了，不知道哪里出毛病。
问题是;有倍数的单元格标不出来红色。
麻烦帮我修改一下。有劳了！

追答

在你要做颜色标记的那个工作表的标签上点右键,选查看代码,然后粘贴上面的代码.再执行.
我这里excel 2003 测试通过