[已解决]I8=A1 G6=A2 F5=A3等如何通过宏设置实现I8 G6 F5自动填充颜色（如图）

jkc24

I8=A1 G6=A2 F5=A3等如何通过宏设置实现I8 G6 F5自动填充颜色（如图） 例子.rar (6.29 KB, 下载次数: 4)

2014-5-28 21:40 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

tianyiyi

2014-5-28 22:01

用技巧做的

跳转到最佳答案楼层

tianyiyi

你这个应该在VBA版块提问

youfang

看不明白

byhdch

1. Sub test()
   
2.     Dim i As Long, j&
   
3.     For j = 1 To 10
   
4.         For i = 2 To Cells(j, Columns.Count).End(xlToLeft).Column
   
5.             If Cells(j, i) = Cells(j, 1) Then
   
6.                 Cells(j, i).Font.ColorIndex = 3
   
7.             End If
   
8.         Next i
   
9.     Next j
   
10. End Sub

复制代码

例子.rar (16.01 KB, 下载次数: 3)

2014-5-28 21:57 上传

点击文件名下载附件

tianyiyi

用技巧做的

qq49203965

这个好 刚好也能用上这个。。。真好

eking_tang

tianyiyi 发表于 2014-5-28 22:01
用技巧做的

看不懂啊~哥~~=B1=A1...这什么意思啊?
逻辑是?

tianyiyi

eking_tang 发表于 2014-5-29 15:48
看不懂啊~哥~~=B1=A1...这什么意思啊?
逻辑是?

这个很好理解，你按我的动画做一遍就能明白了，还有我不是哥{:071:}