B="SDFSDdsfsdf"
A=LCase(B)
把B转换成小写字母赋值给A
For hang = 2 To ActiveSheet.UsedRange.Rows.Count '遍历第2行到当前表总行数
A = Cells(hang, lie)
Next
遍历第2行到当前sheet总行数,把每个单元格的值赋值给A
ArrayA = Split("a=1&b=2&c=3", "&")
Count = UBound(ArrayA) '取数组的最大下标数
For i = 0 To Count
msgbox ArrayA(i)
Next
把a=1&b=2&c=3用&分隔开，成一个一维数组ArrayA，
ArrayA的成员是
a=1
b=2
c=3
取数组ArrayA的最大下标值，就是成员数-1，赋值给count
i从0循环到count，就是从数组ArrayA的第一个元素到最后一个元素，
消息框弹出当前运算的成员
A=1
Select Case A
Case 1
Cells(1, 1) = 1
Case 2
Cells(1, 1) = 2
.
.
.
case n
Case Else
Cells(1, 1) = 0
End Select
A是一个变量，当A等于1的时候，第一行第一列等于1
当A等于2的时候，第一行第一列等于2
当A不等于1也不等于2的时候（不符合前面任何一个条件时），第一行第一列等于0
如您从本文得到了有价值的信息或帮助，请考虑扫描文末二维码捐赠和鼓励。
如本文对您有用，捐赠和留言 将是对我最好的支持~（捐赠可转为站内积分）
如愿意，请向朋友推荐本站，谢谢。
尊重他人劳动成果。转载请务必附上原文链接，我将感激不尽。