请教老师，调整下现有代码，去掉每行数字组最后的逗号，谢谢！

cartel

请教老师，调整下现有代码，去掉每行数字组最后的逗号，谢谢！.zip (19.9 KB, 下载次数: 5)

2023-2-2 09:38 上传

点击文件名下载附件

chxw68

详见附件。

cartel

chxw68 发表于 2023-2-2 09:49
详见附件。

chxw68 老师好！
感谢老师的帮助，问题已解决！
新花送完，待会再补上来

gwjkkkkk

Sub test()
    Dim ar, i&, r&
   
    ar = Range("AI1", Cells(Rows.Count, "AI").End(3))
    For i = 1 To UBound(ar)
        If ar(i, 1) <> "" Then
           r = r + 1
           ar(r, 1) = "'" & Mid(ar(i, 1), 1, Len(ar(i, 1)) - 1)
           ar(i, 1) = ""
        End If
    Next i
   
    Columns("AW").Clear
    [AW1].Resize(r) = ar
    Beep
End Sub

gwjkkkkk

参与一下。。。