网页资讯视频图片知道文库贴吧地图采购
进入贴吧全吧搜索
excel吧 关注：281,195贴子：1,548,033
  • 12回复贴，共1页

17位数字，不打乱顺序的情况下提取最小9位数字

本人水平有限，不知道代码对不对
例如46532619491248764提取9位数字是
141248764
Sub dssdf()
Dim abc As Integer, edd As Integer
s1 = 0
For kk = 1 To 9
abc = 1 + s1
edd = 17 - 9 + kk
s1 = ds([f2], abc, edd)
sud = sud & Mid([f2], s1, 1)
Next
[d2] = sud
End Sub
Function ds(aa As String, str1 As Integer, edd As Integer)
sk = 10
For k = str1 To edd
sk = Application.Min(sk, Mid(aa, k, 1))
Next
ds = InStr(str1, aa, sk)
End Function
在excelhome上面碰到的问题，本人水平有限，花了2个小时研究调试，数学水平太差，抛砖引玉有没有更加好的方法


Option Explicit
'例如46532619491248764提取9位数字是
'141248764
Dim minValue As Long
Dim minText As String
Function GetMin(str As String) As String
minValue = 0
minText = ""
dg str, ""
MsgBox minText
End Function
Sub dg(str As String, strText As String)
If Len(strText) = 9 Then
If minValue = 0 Or minValue > Val(strText) Then
minValue = Val(strText)
minText = strText
End If
Else
dg Mid(str, 2), strText + Left(str, 1)
If 9 - Len(strText) < Len(str) Then dg Mid(str, 2), strText
End If
End Sub


2025-06-14 05:08:38
广告
用函数small做不是更简单


豪


扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！
  • 12回复贴，共1页
分享到: