摘要： 1、 Sub 判断是否符合条件() Dim i As Integer For i = 1 To 7 If Range("a" & i).Value Like "李*" Then Range("b" & i).Value = "√" Range("b" & i).Font.Color = vbRed 阅读全文

摘要： 1、 Sub Arraytest() Dim arr As Variant arr = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10) MsgBox "arr数组的第4个元素为：" & arr(3)End Sub 2、 Sub shishi() Dim arr As Var 阅读全文