请老师调整这个VBA,使字体在单元格中间位置，谢谢！

cartel

请老师调整这个VBA,使字体在单元格中间位置，谢谢！.zip (20.24 KB, 下载次数: 8)

2024-5-16 16:05 上传

点击文件名下载附件

小凡、、、

加属性嘛---------------

313667354

Sub 对应数()
    Dim ar, i&, r&, strTxt$
    ar = Sheets(1).[F1].CurrentRegion
    strTxt = "," & [AA4].Value & ","
   
    For i = 1 To UBound(ar)
        If InStr(strTxt, "," & ar(i, 2) & ",") Then
            r = r + 1
            ar(r, 1) = ar(i, 1)
            ar(r, 2) = ar(i, 2)
        End If
    Next i
   
    Columns("AB:AC").Clear
    If r Then [AB1].Resize(r, 2) = ar
   
    ' 设置水平垂直居中
    With Sheets(2).Range("AB:AC")
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
    End With
   
    Beep
End Sub

cartel

小凡、、、 发表于 2024-5-16 16:12
加属性嘛---------------

老师好！
请帮做个附件发上来，谢谢！

cartel

我改的代码总是红色，是哪错了，请老师指点

小凡、、、

cartel 发表于 2024-5-16 17:30
我改的代码总是红色，是哪错了，请老师指点

if 换行后需要end if 结尾，你漏了