技巧篇：常用的vba代码汇总

<> "" Then With Range(Cells(i, 3), Cells(i, 5)) .Interior.Color = RGB(255, 242, 204) .Font.Color = RGB(0, 0, 0) .Font.Bold = True With .Borders(xlEdgeTop) .LineStyle = xlDash .Color = RGB(191, 191, 191) End With With .Borders(xlEdgeBottom) .LineStyle = xlDash .Color = RGB(191, 191, 191) End With End With End If If Cells(i, 4) <> "" Then With Range(Cells(i, 4), Cells(i, 5)) .Interior.Color = RGB(255, 242, 204) .Font.Color = RGB(0, 0, 0) .Font.Bold = True With .Borders(xlEdgeTop) .LineStyle = xlDash .Color = RGB(191, 191, 191) End With With .Borders(xlEdgeBottom) .LineStyle = xlDash .Color = RGB(191, 191, 191) End With End With End If If Cells(i, 5) <> "" Then With Range(Cells(i, 5), Cells(i, 5)) With .Borders(xlEdgeTop) .LineStyle = xlDash .Color = RGB(128, 128, 128) End With With .Borders(xlEdgeBottom) .LineStyle = xlDash .Color = RGB(128, 128, 128) End With End With End If If Cells(i, 1) = "" Then Rows(i).group i = i + 1 Loop For i = row_start To row_end If Cells(i, 2) = "" And Cells(i, 3) = "" Then Rows(i).group End If Next ' For i = row_start To row_end ' If Cells(i, 3) = "" And Cells(i, 4) = "" Then ' Rows(i).group ' End If ' Next End Sub

相关阅读:

魔幻工厂一字裤天猫旗舰店正式开售！三重好礼买到爽

马桶两边留多少间距最为合适

美国InfoComm

班凯罗：若塔图姆在总决赛上出手更多中距离

自驾游组队要注意的问题

栏杆立杆间距规范要求 栏杆规范要求 栏杆长度规范 栏

脸上有这5个特征，就是年纪越大越耐看的“抗老脸”，全中

鼻头千万别再乱动了

事关国庆假期出游，文旅部提醒！

一个人开三辆车？奔驰测试无人驾驶卡车车队