求按b1到b10里的个位数尾，按位置组成十位数

王拥军 · 发表于 2024-12-1 14:16

求按b1到b10里的个位数尾，按位置组成十位数.rar (1.71 KB, 下载次数: 7)

ynzsvt · 发表于 2024-12-1 14:23

没看到你的需求

gwjkkkkk · 发表于 2024-12-1 14:37

建议楼主详细解释一下，还真看不懂！

王拥军 · 发表于 2024-12-1 14:51

过客fppt · 发表于 2024-12-1 15:56

Sub GenerateNumbers()
Dim firstPosition As String
Dim secondPosition As String
Dim i As Long
Dim result As String
firstPosition = "1234"
secondPosition = "4670"
'处理第一位置尾
For i = 1 To 80
If InStr(1, firstPosition, Right(i, 1)) > 0 Then
result = result & i & " "
End If
Next i
Debug.Print "第一位置尾的数字：" & result
result = "" '清空结果变量
'处理第二位置尾
For i = 1 To 80
If InStr(1, secondPosition, Right(i, 1)) > 0 Then
result = result & i & " "
End If
Next i
Debug.Print "第二位置尾的数字：" & result
End Sub

复制代码

ynzsvt · 发表于 2024-12-1 16:24

按尾数拆分数据

王拥军 · 发表于 2024-12-1 16:47

求03版公式谢谢

王拥军 · 发表于 2024-12-1 16:50

过客fppt 发表于 2024-12-1 15:56

求03版公式，麻烦公式做在表格里，谢谢。

过客fppt · 发表于 2024-12-1 16:58

王拥军发表于 2024-12-1 16:50
求03版公式，麻烦公式做在表格里，谢谢。

不客气，我不会公式，哈哈

良良 · 发表于 2024-12-1 17:44

本帖最后由良良于 2024-12-1 18:38 编辑

王拥军发表于 2024-12-1 16:47
求03版公式谢谢

G1=SMALL(IF(ISERR(TEXT(MID($B1,ROW(INDIRECT("1:"&LEN($B1))),1)+COLUMN($A:$I)*10-10,"[=]"""";[<81]0;""""")/1),"",TEXT(MID($B1,ROW(INDIRECT("1:"&LEN($B1))),1)+COLUMN($A:$I)*10-10,"[=]"""";[<81]0;""""")/1),COLUMN(A1))，三键，下拉、右拉。

		自动登录	找回密码
密码			免费注册

[求助] 求按b1到b10里的个位数尾，按位置组成十位数