Question

vba 获取单元格的其中某个值,返回一个函数

excle 中判断 “A24 ”单元格中含有“全边”，则删除C7：D10
若单元格含有“左无边，或右无边”，则删B7：B10, D7：.D10
若单元格含有“无边”，则删B7：C10
请高手指教
但是前提是，A24 单元格里也有好多别的叙述，要看这个单元格里是否含有上述的词语，重要的是 左无边和无边不要判断有误。

Answer 1

Sub Macro1()
'Cells(24, 1)就是A24
Dim st(3) As String
st(0) = Trim("全边")
st(1) = Trim("无边")
st(2) = Trim("左无边，或右无边")
If InStr(st(0), Cells(24, 1)) Then
Range("C7:D10") = ""
ElseIf InStr(st(1), Cells(24, 1)) Then
Range("B7:C10") = ""
ElseIf InStr(st(2), Cells(24, 1)) Then
Range("B7:B10") = ""
Range("D7:D10") = ""
End If
End Sub