提取数据到指定区域

天地一相

wxxydl 发表于 2023-1-4 12:34
举例说明

好，例如。数据中的“，”号，变成其它各种符号。如：。，+，-，/,  或几个的混合

天地一相

gwjkkkkk 发表于 2023-1-3 21:41
请楼主参考附件。。。

谢。代码里的分拆规则可否类似这样：=MID(A4,X,2)。 X=1，4，7，10，13，16，19。我是考虑应对数据格式的变化，主要是分隔符号的可能变化和样式，若不是逗号而是其它各种，就麻烦了。

tanglf188

Sub TEST()
    countrow = Range("A" & Rows.Count).End(xlUp).Row
    For i = 4 To countrow
        st = Sheet1.Range("A" & i)
        md = ""
        k = 2
        For j = 1 To Len(st)
            If Mid(st, j, 1) >= 0 And Mid(st, j, 1) <= 9 Then
                md = md & Mid(st, j, 1)
            Else
                If md <> "" Then
                    Sheet1.Cells(i, k) = md
                    k = k + 1
                    md = ""
                End If
            End If
            If j = Len(st) And md <> "" Then
                Sheet1.Cells(i, k) = md
            End If
        Next
    Next
End Sub

wxxydl

天地一相 发表于 2023-1-4 12:45
好，例如。数据中的“，”号，变成其它各种符号。如：。，+，-，/,  或几个的混合

最好把基础数据改为相同的。用替换法

天地一相

wxxydl 发表于 2023-1-4 14:59
最好把基础数据改为相同的。用替换法

谢谢，明白你说的，但不能改，会很麻烦。我现在是用COPY公式写入计算然后数值化处理的。=MID(A4,1,2)，想着不用公式的话，速度会快。

天地一相

liulang0808 发表于 2023-1-4 09:23
Sub Macro1()
    Application.DisplayAlerts = False
    Range("A4:A" & Cells(Rows.Count, 1).End(3). ...

谢谢。这办法不行。原始数据没了。考虑数据的不同格式（分隔符号的变化）。我还是想着能规定从第几位开始提取几位，目前我是用VBA批量写入公式完成的，感觉有点慢。

tanglf188

tanglf188 发表于 2023-1-4 14:24
Sub TEST()
    countrow = Range("A" & Rows.Count).End(xlUp).Row
    For i = 4 To countrow

在这个可以插入任意符号、文字、长度，代码只提取数字部分，遇到不是数字的就会填入单元格。

supermouse24

天地一相 发表于 2023-1-4 15:13
谢谢，明白你说的，但不能改，会很麻烦。我现在是用COPY公式写入计算然后数值化处理的。=MID(A4,1,2)，想 ...

想问问，是不是每组数据的分隔符会固定。
例如A4的分隔符是“，”，A5的分隔符是“+”。

还是每一组数据中的分隔符不固定
例如A4中的分隔符含有“，”还含有“+”.

天地一相

supermouse24 发表于 2023-1-4 16:30
想问问，是不是每组数据的分隔符会固定。
例如A4的分隔符是“，”，A5的分隔符是“+”。

谢谢。每一行的都是相同的。只是同一个数据里会有不同的分隔符，我就想，要不就把非数值内容一律视作符号，或者直接定义按位置个数提取。

jz_l