Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/excel/27.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
如果Excel中的单元格为空,如何隐藏行?并在下面添加新行 我已经创建了表A1:J4,其中我向第2、3和4行添加了数据 如果没有数据,我想通过宏隐藏第3行和第4行 然后在第10行下自动添加一个新的干净行“插入行”。如果隐藏第3行,则添加一行;如果隐藏第4行,则在第10行下添加两行新行。 也许你会明白的_Excel_Vba - Fatal编程技术网

如果Excel中的单元格为空,如何隐藏行?并在下面添加新行 我已经创建了表A1:J4,其中我向第2、3和4行添加了数据 如果没有数据,我想通过宏隐藏第3行和第4行 然后在第10行下自动添加一个新的干净行“插入行”。如果隐藏第3行,则添加一行;如果隐藏第4行,则在第10行下添加两行新行。 也许你会明白的

如果Excel中的单元格为空,如何隐藏行?并在下面添加新行 我已经创建了表A1:J4,其中我向第2、3和4行添加了数据 如果没有数据,我想通过宏隐藏第3行和第4行 然后在第10行下自动添加一个新的干净行“插入行”。如果隐藏第3行,则添加一行;如果隐藏第4行,则在第10行下添加两行新行。 也许你会明白的,excel,vba,Excel,Vba,下面的代码可以检查值是否在一行中,如果不在一行中,则会隐藏该行。 但是,我需要隐藏两行,同时在第10行下创建两个新行 代码: Sub HideRows() Range("A3").Select Do While ActiveCell.Row < 6 If ActiveCell.Value = "" And ActiveCell.Offset(0, 1).Value = "" Then Selection.EntireRow.Hid

下面的代码可以检查值是否在一行中,如果不在一行中,则会隐藏该行。 但是,我需要隐藏两行,同时在第10行下创建两个新行

代码:

Sub HideRows()
Range("A3").Select
Do While ActiveCell.Row < 6
If ActiveCell.Value = "" And ActiveCell.Offset(0, 1).Value = "" Then
Selection.EntireRow.Hidden = True
End If
ActiveCell.Offset(1, 0).Select
Cells.EntireColumn.Hidden = False
Loop
End Sub
Sub-HideRows()
范围(“A3”)。选择
在激活单元格时执行此操作。行<6
如果ActiveCell.Value=“”和ActiveCell.Offset(0,1).Value=“”则
Selection.EntireRow.Hidden=True
如果结束
ActiveCell.Offset(1,0)。选择
Cells.entireclumn.Hidden=False
环
端接头

我认为你把列和行混淆了,如果你说“行”是指行,那么不清楚。行是[1,2,3,…]列是[A,B,C,…]。你能在你的问题中澄清这一点吗?谢谢你的警告。很抱歉我指的是行。默认情况下,如果行中没有数据,我可以隐藏行。如果我输入一个数字,例如1234,那么在按下“隐藏”按钮后,它将隐藏数字为1234的行。也许更清楚。