Question

VBA如何判断一个字符串是否包含另外一个字符串

我的这个工作薄里面有好几个工作表，例如：sheet1，sheet2，sheet3，sheet4。我想把这几个表名赋值到一个数组里面怎么弄啊？刚学VBA求大侠帮助啊！！！

Answer 1

Sub test()
Dim shName() As String, shCount As Integer, i As Integer
shCount = ThisWorkbook.Sheets.Count
ReDim shName(1 To shCount)
For i = 1 To shCount
    shName(i) = Sheets(i).Name
Next i
End Sub