Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/17.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
Vba 删除单元格仅包含一个空格的行_Vba_Excel - Fatal编程技术网

Vba 删除单元格仅包含一个空格的行

Vba 删除单元格仅包含一个空格的行,vba,excel,Vba,Excel,我有一个带分隔符“;”的文本文档 我已将这些值导入Excel文件。某些字段的值只有一个空格 我尝试了下面的代码来删除空白单元格,但由于单元格中有空格,所以没有选择 如何通过宏将空白单元格移除整个行? < p>见代码示例: 此代码在工作簿中的所有工作表中循环查找“”并删除该行。您忘记添加代码了。 Sub DeleteRowIfSpace() For Each Sht In ActiveWorkbook.Worksheets Set rng = Sht.UsedRange

我有一个带分隔符“;”的文本文档

我已将这些值导入Excel文件。某些字段的值只有一个空格

我尝试了下面的代码来删除空白单元格,但由于单元格中有空格,所以没有选择

如何通过宏将空白单元格移除整个行?

< p>见代码示例:


此代码在工作簿中的所有工作表中循环查找“”并删除该行。

您忘记添加代码了。
 Sub DeleteRowIfSpace()
    For Each Sht In ActiveWorkbook.Worksheets
    Set rng = Sht.UsedRange
    Set MyRange = rng

        For Each mycol In MyRange.Columns
            For Each mycell In mycol.Cells
                If mycell.Value = " " Then
                mycell.EntireRow.Delete
               End If

            Next
        Next
    Next
    End Sub