发布网友 发布时间:2022-04-23 09:58
共3个回答
热心网友 时间:2023-10-10 12:25
没有具体附件,感觉楼主描述做了模拟
详见代码及截图:
Sub 按钮1_Click()
Set d = CreateObject("scripting.dictionary")
Application.ScreenUpdating = False
arr = Range("bp1:ee" & ActiveSheet.UsedRange.Rows.Count)
For j = 1 To ActiveSheet.UsedRange.Rows.Count
d.RemoveAll
For i = 1 To UBound(arr, 2)
If InStr(arr(j, i), "余") > 0 Then
brr = Split(arr(j, i), "余")
d(Val(brr(1))) = Val(brr(1))
End If
Next i
x = 0
For i = WorksheetFunction.Min(d.keys) To WorksheetFunction.Max(d.keys)
If d.exists(i) Then
x = x + 1
Cells(j, x) = Chr(69 + i)
End If
Next i
Next j
Application.ScreenUpdating = True
End Sub
热心网友 时间:2023-10-10 12:25
先把条件循环写入字典。例如2余0对应字母E。热心网友 时间:2023-10-10 12:26
For i = 1 To 5怀疑对方AI换脸可以让对方摁鼻子 真人摁下去鼻子会变形
女子野生动物园下车狼悄悄靠近 后车司机按喇叭提醒
睡前玩8分钟手机身体兴奋1小时 还可能让你“变丑”
惊蛰为啥吃梨?倒春寒来不来就看惊蛰
男子高速犯困开智能驾驶出事故 60万刚买的奔驰严重损毁