如何去掉括号前的怪字[再把以下空白上各文字串起来

jylai · 发表于 2024-3-10 07:56

本帖最后由 jylai 于 2024-3-10 08:21 编辑

如何去掉括号前的怪字[再把以下空白上各文字串起来，串起来之前留一空格

结果请看黄色块

liulang0808 · 发表于 2024-3-10 08:15

Sub 按钮1_Click()
r = Cells(Rows.Count, 1).End(3).Row
arr = [a1].Resize(r + 1)
For j = 2 To UBound(arr)
      If InStr(arr(j, 1), "[") > 0 Then
         str1 = "[" & Split(arr(j, 1), "[")(1)
         For i = j + 1 To UBound(arr)
            If Len(arr(i, 1)) = 0 Then
                  arr(j, 1) = str1
                  j = i
                  Exit For
            Else
                  str1 = str1 & " " & arr(i, 1)
                  arr(i, 1) = ""
            End If
         Next i
      End If
Next j
[k1].Resize(r) = arr
End Sub

liulang0808 · 发表于 2024-3-10 08:15

result.zip (16.89 KB, 下载次数: 9)

jylai · 发表于 2024-3-10 08:21

版主您太厉害了，感谢您

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

[已解决] 如何去掉括号前的怪字[再把以下空白上各文字串起来

评分