Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/16.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,表“数据”在第O列中有3000多行,其中包含100多个客户。假设“客户”A1到A26为: a b c d e ... z 代码正在删除除z以外的所有对象,而不是从a到z以外的所有对象。我需要从“客户”表A列中未列出的“数据”中删除所有客户。我哪里做错了?将“dontDelete”更改为以下将产生相同的结果。26可以替换为14、7等,然后该行的值成为剩下的唯一值 dontDelete = Array(Range("Customers!A1:A26") 我试图将子文件粘贴到此处,但尽管预览看起来

表“数据”在第O列中有3000多行,其中包含100多个客户。假设“客户”A1到A26为:

a
b
c
d
e
...
z
代码正在删除除z以外的所有对象,而不是从a到z以外的所有对象。我需要从“客户”表A列中未列出的“数据”中删除所有客户。我哪里做错了?将“dontDelete”更改为以下将产生相同的结果。26可以替换为14、7等,然后该行的值成为剩下的唯一值

dontDelete = Array(Range("Customers!A1:A26")

我试图将子文件粘贴到此处,但尽管预览看起来正确,但它仍不断给我一个格式错误。

如果没有准确的子文件,很难看到需要更改什么才能更正此错误。但是,如果像这样静态分配数组的大小

Dim dontDelete(26) As String
Dim dontDelete(1 to 26) as String
实际上,您将数组定义为dontDelete(0,1,2…24,25,26)。然后,如果您的循环经过26次迭代,它将始终在25次结束,而不是26次

我建议从这样声明数组开始

Dim dontDelete(26) As String
Dim dontDelete(1 to 26) as String

并再次尝试看看它是否解决了问题

范围是动态的,从A1到A(x)取决于汇总中包含的客户数量。A中的值不是数字或单个字母,而是包含空格等的文本。仔细想想,您的建议为我指明了解决问题的正确方向。谢谢