Vbscript 用VB脚本读取excel中特定列的所有行

我有一个电子表格，里面有我们所有的客户信息。因此，我们有客户1、2、3、4、5，每个客户都有一个包含一个或多个电子邮件地址的电子邮件地址列。我需要阅读所有这些地址，并以某种形式或方式输出它们。我们有列

AJ

标记为

Email\u Addresses

，我需要为每个客户或行提取所有电子邮件

我找到了这个密码

Dim xlApp 
Dim xlBook 
Dim xlSheet 
Set xlApp = CreateObject("Excel.Application") 
xlApp.visible = true 
Set xlBook = xlApp.Workbooks.open("D:\Macro\BirthDay.xls") 
Set xlSheet = xlBook.Worksheets("Sheet1") 
MsgBox  xlSheet.Cells(1, A1).Value

然而，我的问题是如何让这个或一些代码读取电子邮件地址列中的所有行

AJ

row_cnt = objSheet.UsedRange.Rows.Count
MsgBox "number of rows is --> " & row_cnt
col_cnt = objSheet.UsedRange.Columns.Count
MsgBox "number of columns is --> " & col_cnt

For i = 1 To row_cnt
     value = objExcel.Cells(i,column_number_having_emailids).Value
     no_of_emailid = Split(value,";")
    for j = 0 to UBound(no_of_emailid)
        MsgBox no_of_emailid(j)
    Next
Next

---

尝试类似这样的操作

电子邮件地址应该输出到哪里，例如文件、网页等？它可以输出到文本文件、AS400表格。。。我更关心的是把所有客户的“AJ”或“Email_Address”列中的所有内容都拉进去。实际上，我现在把文件压缩到了两列。客户和电子邮件地址。有时，一个客户可能有3个电子邮件地址用分号分隔，我需要说，我现在的大问题是如何将多个电子邮件地址从一个列中分隔开来。。。所以customer1已经aa@aa.com;bb@aa.com在他们的Email_Address列中，但当我输出时，我怎么能将它们分开？最终结果应该是什么样的？请在您的答案中添加一些解释。

'ReadExcel Using Search                    
Set objExcel = Wscript.CreateObject("Excel.Application")   
Set objWorkbook = objExcel.Workbooks.Open("D:\VBScriptTrainee\Email.xlsx")   
objExcel.visible=True
rowCount=objExcel.ActiveWorkbook.Sheets(1).UsedRange.Rows.count
colCount=objExcel.ActiveWorkbook.Sheets(1).UsedRange.Columns.count  
Msgbox("Rows    :" & rowCount)
Msgbox("Columns :" & colCount) 
a=inputbox("Enter the serial number","Search") 
 intRow = 2
 intCol = 2
  for intRow=2 to rowCount  step 1
     if ( CInt(a) = CInt(objExcel.Cells(intRow, 1).Value) ) then        
       for intCol=1 to colCount step 1  
           c = c & "    " & (objExcel.Cells(intRow, intCol).Value) 
        next 
           sp=Split(c,";")
            b=ubound(sp)
         for i=0 to b
            Msgbox(sp(i))
         Next
     End if
        c=null
  next
'objExcel.Quit