如果单元格为空，则使变量等效于任何值

Question

我有一个包含3个列表框的工作簿。每个列表框都由一个创建的列表填充，每个列表框包含一个＆＃34;空白＆＃34;数据点。我正在尝试编写一个脚本：

For lpRows = 1 to 100
  For lpColumns = 1 to 8
     If ListBox1 = "" and ListBox2 = "Val" And ListBox3 = "Var" Then
         Sheets(RndmSheet).Cells(lprows,lpcolumns) = Sheets(DiffSheet).Cells(lprows,lpColumns)
else
end if

但是，我的代码不起作用，因为VBA只是在搜索一个空白单元格，我希望它返回包含ListBox2和ListBox3的任何值，但Listbox1将无关紧要。

是否有一种简单的方法可以使用通配符来实现我想要的或者我需要简单地创建一个相当大的嵌套if语句来处理它？<​​/ p>

Answer 1

我刚刚添加了if语句

if sheets(rndmsheet).cell(lpRows,lpColumns) = "" then
   VarCell = Sheets(rndmsheet).cell(lprows,lpcolumns)
end if

对不起，如果那不是真的有意义。