工作
工作常用
陈燮函 发表于2023-07-25 浏览230 评论0
【1】结构调整涉及指标
年报：3-4,205,3701-3706,3711,3712,3735,3745,3751,3781,3782,3784-3786,3821,3831,3861-3863,3871-3876,3881-3883,3891,3900,3907-3910,3920,3941,3945-3947,3955-3957,4202,4203, 4241,4251,4261,4271,4285,4311,4321
学习
随机序列生成
陈燮函 发表于2023-07-25 浏览193 评论0
仅单字符，输入字符串递增时输出结果也递增。
Sub createArr()
Application.ScreenUpdating = False
Dim s As String
s = InputBox("请输入字符串")
Cells(1, 2) = "开始时间：" & Format(Now(), "hh:mm:ss")
funArr s
Cells(2, 2) = "结束时间：" & Format(Now(), "hh:mm:ss")
End Sub
Function funArr(str1 As String, Optional str2 As String = "", Optional m As Long = 1)
Dim a() As String
If Len(str1) = 1 Then Exit Function
For i = 0 To Len(str1) - 1
ReDim Preserve a(i)
a(i) = Mid(str1, i + 1, 1)
str0 = a(i) & Replace(str1, a(i), "")
If Len(str0) = 2 Then
Cells(m, 1) = str2 & str0
m = m + 1
End If
funArr Mid(str0, 2) & "", str2 & Left(str0, 1), m
Next
End Function