Question

怎么用VBA读取第一列每个单元格的指定范围的字符

A列内容如下：原文本内容（A1） <字段一信息 字段一="a" 字段二="abc" 字段三="ccc" 字段四="ddd"> <字段一信息 字段一="a" 字段二="abc" 字段三="ccc" 字段四="ddd"> <字段一信息 字段一="a" 字段二="abc" 字段三="ccc" 字段四="ddd"> <字段一信息 字段一="a" 字段二="abc" 字段三="ccc" 字段四="ddd"> <字段一信息 字段一="a" 字段二="abc" 字段三="ccc" 字段四="ddd"> <字段一信息 字段一="a" 字段二="abc" 字段三="ccc" 字段四="ddd"> <字段一信息 字段一="a" 字段二="abc" 字段三="ccc" 字段四="ddd"> <字段一信息 字段一="a" 字段二="abc" 字段三="ccc" 字段四="ddd"> <字段一信息 字段一="a" 字段二="abc" 字段三="ccc" 字段四="ddd"> <字段一信息 字段一="a" 字段二="abc" 字段三="ccc" 字段四="ddd"> <字段一信息 字段一="a" 字段二="abc" 字段三="ccc" 字段四="ddd"> <字段一信息 字段一="a" 字段二="abc" 字段三="ccc" 字段四="ddd"> <字段一信息 字段一="a" 字段二="abc" 字段三="ccc" 字段四="ddd">B列字段一C列字段二D列字段三E列字段四通过 VBA设置一个按钮，点完按钮即可根据A列的内容自动填充BCDE列的内容

Answer 1

EXCEL数据菜单中有个功能叫做分列，完全能实现你的要求，没有必要用VBA。

 

分列的时候你可以选指定字符或指定宽度

 

Answer 2

Sub a()
Dim str1$, i%, j%, k%
For i = 2 To [a65536].End(3).Row
    str1 = Cells(i, 1).Value
    Do Until InStr(1, str1, Chr(34), 3) = 0
       j = InStr(1, str1, Chr(34), 3)
       k = InStr(j + 1, str1, Chr(34), 3)
       Cells(i, 256).End(xlToLeft).Offset(, 1) = Mid(str1, j + 1, k - j - 1)
       str1 = Right(str1, Len(str1) - k)
    Loop
Next i
End Sub

 用这个代码试试

追问

如果读取同目录下的固定文件名的文本文件到A列呢？文本内容看图

追答

Sub a()
Dim str1$, i%, j%, k%,str2$
str2=thisworkbook.path
Workbooks.OpenText Filename:= str2 &"\你的文件名.txt", Origin:= _
        936, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
        ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _
        , Space:=False, Other:=False, FieldInfo:=Array(1, 2), _
        TrailingMinusNumbers:=True
For i = 2 To [a65536].End(3).Row
    str1 = Cells(i, 1).Value
    Do Until InStr(1, str1, Chr(34), 3) = 0
       j = InStr(1, str1, Chr(34), 3)
       k = InStr(j + 1, str1, Chr(34), 3)
       Cells(i, 256).End(xlToLeft).Offset(, 1) = Mid(str1, j + 1, k - j - 1)
       str1 = Right(str1, Len(str1) - k)
    Loop
Next i
End Sub

追问

TrailingMinusNumbers:=True 提示未找到命名参数

追答

你录制一个打开记事本文档的宏。再参照我的改。

Answer 3

貌似用公式MID就可以实现，如果字数固定的话；如果用VBA也是用这个函数