我想请教一下各位大神们,像图一那样,有合并的单元格,并且每个合并的单元格的行数都可能存在不一样的可能,怎么样才能快速的做成像图二一样,就是快速填充底色,只要能用任何颜色的底色区分开每个商品的名称就行,有没有什么方法?因为我们的商品名称可能存在成百上千个,一个一个手动来调底色的话太慢了,求各位大神解答一下哈,比较着急的,谢谢!
å¯ä»¥éç¨æ¡ä»¶æ ¼å¼è¾¾å°ï¼æ¥éª¤å¦ä¸ï¼
éæ©è¦è®¾ç½®æ ¼å¼çæ°æ®åºåï¼å³ä»ç¬¬äºè¡å¼å§çåºåï¼
ä¾æ¬¡éæ©åè½åºèåãå¼å§ã-ãæ¡ä»¶æ ¼å¼ã-ãæ°å»ºè§åã-ã使ç¨å ¬å¼ç¡®å®è¦è®¾ç½®æ ¼å¼çåå æ ¼ã
å¨ãç¼è¾è§å说æãä¸è¾å ¥å ¬å¼ï¼ =ISEVEN(COUNTA($A$2:$A2))
å¨ãæ ¼å¼ãä¸è®¾ç½®ä½ æ³è¦çé»è²å¡«å
æåãç¡®å®ãå³å¯
设置æ¡ä»¶å ¬å¼
æç»çææå¾å¦ä¸ï¼
ææå¾
公式是不是不全呀?公式要输入啥?
有代码么?
追答Sub 快速填充色()
Dim r As Long, rn As Long, i As Long
Range("a1").Select
i = 0
Do
Application.SendKeys ("{DOWN}")
DoEvents
i = i + 1
If i Mod 2 = 0 Then
r1 = Selection.Cells(1).Row
rn = Selection.Rows.Count
Rows(r1 & ":" & r1 + rn - 1).Interior.Color = 65535
End If
Loop Until Selection.Cells(1).Value = ""
End Sub