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

Related Posts: Excel VBA常用代码段 :