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


如您从本文得到了有价值的信息或帮助,请考虑扫描文末二维码捐赠和鼓励。

尊重他人劳动成果。转载请务必附上原文链接,我将感激不尽。


与《Excel VBA常用代码段》相关的博文:


留言

avatar
😀
😀😁😂😅😭🤭😋😘🤔😰😱🤪💪👍👎🤝🌹👌