提取数据到指定区域

天地一相

jz_l 发表于 2023-1-4 16:54

是你呀，谢谢你！这个我过会才能测试。移步瞅瞅我这个帖子呗，我想对你来说是手到擒来。

jz_l

天地一相 发表于 2023-1-4 16:58
是你呀，谢谢你！这个我过会才能测试。移步瞅瞅我这个帖子呗，我想对你来说是手到擒来。https://club.exc ...

公式看不懂，没法弄

天地一相

jz_l 发表于 2023-1-4 17:22
公式看不懂，没法弄

本帖的我测试正确！强制声明不是说在模块级别使用吗？表内的VBA也能用？提示我其它未声明，我逐个定义了一遍。哪个公式，愿意的话我给你解释说明一下。谢谢

天地一相

jz_l 发表于 2023-1-4 17:22
公式看不懂，没法弄

可能是J5:L5的公式有点复杂，其实那公式要干的活，我在8,9,10行的说明里应该说清楚了。其它公式应该没什么问题。H5的公式是判断计算结果是否符合于E5

supermouse24

这个可以在不同分隔符的情况下都能提取数字。

Sub 提取数字()

    endrow = [a4].End(xlDown).Row '看有多少行
    For irow = 4 To endrow
        text_ = Cells(irow, 1)
        For i = 1 To Len(text_)
            If Not IsNumeric(Mid(text_, i, 1)) Then
                deli = Mid(text_, i, 1)             '找出分隔符
                Exit For
            End If
        Next
        arr_text = Split(text_, deli)
        Dim arr_num()
        num = 0
        For i = 0 To UBound(arr_text)
            ReDim Preserve arr_num(num)
            arr_num(num) = CInt(arr_text(i))         '转换为数字，这里是整数
            num = num + 1
        Next
        Cells(irow, 2).Resize(1, UBound(arr_num) + 1) = arr_num '打印
    Next
   
End Sub

天地一相

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

先谢。测试了你的代码。结果正确，如你所说，能处理各种符号。唯一的问题是速度慢。我用公式6秒处理，你的测试30秒。我好奇的是，全部的帮助都有考虑符号间隔的问题，但这符号不重要呀，可以不管啥符号直接作为一个数据占位处理的，这样的话，问题就简化成：对一个单元格的数据，按位取值，取几次。每次几位。我的问题示例：1 to 7 , 每列位置和位数：1，2 和 4，2 和 7，2 一直到 19，2 结束。循环，步进3. 这样估计速度就快了。

天地一相

supermouse24 发表于 2023-1-5 11:54
这个可以在不同分隔符的情况下都能提取数字。

Sub 提取数字()

先谢，汇报下测试，没过，说是类型不匹配。不去识别符号可好？一律视为一个数据占位，直接规定，取几次，每次是从第几位开始取几位。于是就是：1 to 7 , 位置i=1,然后步进3，每次取2位。

tanglf188

天地一相 发表于 2023-1-8 21:34
先谢。测试了你的代码。结果正确，如你所说，能处理各种符号。唯一的问题是速度慢。我用公式6秒处理，你 ...

作为常写代码的来说，肯定要考虑代码的冗余问题，能写活的不会写死，如果你确定间隔就是一位的话就只能写死了，万一有两位及以上就不能适用了

天地一相

tanglf188 发表于 2023-1-9 09:16
作为常写代码的来说，肯定要考虑代码的冗余问题，能写活的不会写死，如果你确定间隔就是一位的话就只能写 ...

早，谢谢。我的数据，符号是一个或几个不重要，特点是数据整齐，这样的话，管你有没间隔，间隔几位，对整齐的数据，一律可采用按位取值，取几位的方法。这样的话，代码就能方便调整设置处理各种整齐的数据。不知我想的对不对。若可以，就请你给写一个这样的：取几次，1 to n（是几写几） 。首取位 i = 几。步进（后面取位）+几 （看具体取法填写，本贴就是3），每次取几个位数（本帖就是2）.

tanglf188

天地一相 发表于 2023-1-9 09:31
早，谢谢。我的数据，符号是一个或几个不重要，特点是数据整齐，这样的话，管你有没间隔，间隔几位，对整 ...

Sub TEST()
    T = Timer
    countrow = Range("A" & Rows.Count).End(xlUp).Row
    m = 2 '每次截取数字位数
    n = 3 '步进位
    sti = "," '需要截掉的字符
    For i = 4 To countrow
        st = Sheet1.Range("A" & i)
        md = ""
        k = 2
        Do
            If InStr(st, sti) > 0 Then
                Sheet1.Cells(i, k) = Mid(st, 1, m)
                st = Mid(st, n + 1, Len(st) - n)
                k = k + 1
            Else
                Sheet1.Cells(i, k) = st
                st = ""
            End If
            If st = "" Then Exit Do
        Loop
    Next
    MsgBox "一共用时：" & Format(Timer - T, "#0.00") & " 秒", , "执行完毕!"
End Sub