如何在excelvba中获取逗号分隔的单元格值

我正在寻找验证

如果前一个单元格有两个逗号分隔的值，则此单元格是必需的，否则它不是必需的

示例：
A和B是单元格。
Foo、Bar、Ice是单元格值。
如果一个单元格包含“Foo，Bar”（不带引号），则B单元格是必需的

我正在使用的一些代码抛出警报消息

list = Split(Sheet1.UsedRange.Cells(rowIndex, 18), ",")
count = 0
For Each part In list 
  Dim temp 
  temp = Trim(Encode(part)) 
  If temp <> "" Then 
    count = count + 1
  End If
Next 

list=Split（Sheet1.UsedRange.Cells（行索引，18），“，”）
计数=0
对于列表中的每个零件
暗温
温度=微调（编码（零件））
如果是“临时”，那么
计数=计数+1
如果结束
下一个

很久以前我发过帖子，但我没有回复帖子，这就是我实现功能的方式

list = Split(Sheet1.UsedRange.Cells(rowIndex, 18), ",") 
count = 0
For Each part In list 
Dim temp
temp = Trim(Encode(part)) If temp <> "" Then count = count + 1 
End If 
Next 

list=Split（Sheet1.UsedRange.Cells（行索引，18），“，”）
计数=0
对于列表中的每个零件
暗温
温度=微调（编码（零件））如果温度为“”，则计数=计数+1
如果结束
下一个

显示到目前为止您拥有的代码或相关部分可能正在使用。您好，我已经使用.list=Split（Sheet1.UsedRange.Cells（rowIndex，18），“，”）完成了此操作。如果温度为“”，则列表中每个部分的计数为0 Dim temp=Trim（Encode（part））然后计数=计数+1如果下一步结束