按单元格条件插入行并填充内容
发布网友
发布时间：2022-04-23 07:59
共2个回答
热心网友
时间：2022-06-18 01:19
打开“公司员工信息表”
选择第三行的数据区域A3:F3,单击“开始”选项卡“样式”组中的“条件格式”下拉按钮，在弹出的下拉列表中选择“新建规则”命令，如下图所示。
在打开的对话框中选择“使用公式确定要设置格式的单元格”选项，输入公式=OR($A3:$F3="")，再单击“格式”按钮
单击“格式”按钮后，在打开的对话框中单击“填充”选项卡，选择填充绿色，最后点击“确定”按钮。
返回到“新建格式规则”对话框，此处确认输入的公式及填充的颜色后，点击“确定”按钮
回到工作表中，保持数据区域A3:F3选中状态，向下拖动填充柄填充公式
然后单击“自动填充选项”按钮，选择“仅填充格式”单选按钮。
到此整个设置过程完成，我们试着清除C3单元格内容，发现整行自动填充了绿色，实现了预期目的。
如果想取消单元格的条件格式设置，可以单击“开始”选项卡“样式”组中的“条件格式”下拉按钮，在弹出的下拉列表中选择“管理规则”命令，如下图所示。
在弹出的“条件格式规则管理器”中，勾选具体的格式项，再点击“删除规则”按钮，最后点击“确定”按钮即可。
热心网友
时间：2022-06-18 01:20
试一下下面的代码：
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Sub 规格拆分()
'获取有多少行
i = Range("A65533").End(xlUp).Row
'遍历
j = 2
Do
'分割D列
D = Split(Cells(j, "D"), "\")
'分割E列
E = Split(Cells(j, "E"), "、")
'如果DE列均不为单一内容，跳过，否则进行下一步操作
If UBound(D) <> 0 Or UBound(E) <> 0 Then
'第一个FOR循环，D
For x = 0 To UBound(D)
'第一个FOR循环，E
For y = 0 To UBound(E)
Rows(j + 1).Insert Shift:=xlUp
'循环赋值
Cells(j + 1, "A").Value = Cells(j, "A").Value
Cells(j + 1, "B").Value = Cells(j, "B").Value
Cells(j + 1, "C").Value = Cells(j, "C").Value
Cells(j + 1, "D").Value = D(x)
Cells(j + 1, "E").Value = E(y)
Cells(j + 1, "F").Value = Cells(j, "F").Value
'当前行增加
j = j + 1
Next
Next
'删除原内容
Rows(j - (UBound(D) + 1) * (UBound(E) + 1)).Delete Shift:=xlUp
'变更减小
j = j - 1
End If
'修正行数
i = Range("A65533").End(xlUp).Row
'变量增加
j = j + 1
Loop Until j > i
End Sub
在EXCEL里面按ALT+F11，在左侧双击当前工作表的名称，粘贴进去，按F5，如果没反应，自行百度一下怎么启用宏
