MS Excel VBA查找格式为＆＃34;中心跨选择＆＃34;水平对齐

Question

我有一个Excel电子表格，其中包含文字＆＃34;您好，这是一长串文字＆＃34;在单元格A1中。我选择了A1：G1单元格。

我知道如果我在宏中使用行Selection.HorizontalAlignment = xlCenterAcrossSelection，它将使用水平文本对齐选项格式化选定的单元格＆＃34;选择中心＆＃34;。

如何编写将执行逆操作的函数，即给定单元格A1，返回范围A1：G1？

Answer 1

这是一个开始：

Public Function CAS(r As Range) As String
    Dim i As Long, rng As Range
    CAS = ""

    If r.HorizontalAlignment H<> 7 Then Exit Function
    Set rng = r

    For i = 1 To Columns.Count
        If r.Offset(0, i).HorizontalAlignment <> 7 Then
            CAS = rng.Address(0, 0)
            Exit Function
        Else
            Set rng = Union(rng, r.Offset(0, i))
        End If
    Next i
End Function

这假设 7 是HorizontalAlignment

的正确报酬