作者：乔山办公网日期：
返回目录：office365
用zdVBA来解回决。答
Private Sub Workbook_Open()
Range("A1").ListObject.QueryTable.Refresh BackgroundQuery:=False
Columns(2) = ""
For i = 2 To WorksheetFunction.CountA([A:A])
Cells(i, 2) = "=MID(A" & i & ",1,1)"
Next i
End Sub
接上一位的回复中的“追问”，新建查询（可从多种数据源）：
gfhdh
Ms_Office安装光盘中含有知MICROSOFT QUERY。
如果你已经安装，可直接使用；如果未安道装，使用时会提示你需要安装，这专时将光盘放入即可完成安属装。
MICROSOFT QUERY不能单独下载。