Question

我将一系列单元格地址保存为范围，然后我想将其作为单个单元格地址的列表返回。我似乎无法在网上找到任何可以说是可行的信息，有没有人知道呢？

非常感谢

到目前为止我得到了什么：

功能AN（）

Dim CellRange As String Dim a（）As String Dim intCount As Integer

Dim strTemp

For Each C In ActiveCell.Offset(0, 0).Range("A1:A46")
    If C = "" Then
        C.Select
        CellRange = Range("C" & ActiveCell.Row, ActiveCell.Offset(0, -1)).Address
        a = split(CellRange)
            For intCount = LBound(a) To UBound(a)
            MsgBox a(intCount)

            Next

这给了我范围的两个极端，但不是两者之间的细胞。斯普利特似乎没有工作 - 我仍然可以解决它所以请原谅那里的任何错误..这是漫长的一天！

Answer 1

以下是将范围转换为逗号分隔的地址字符串的一种方法：

Sub dural()
    Dim r As Range, s As String
    Set r = Range("A1,B9,D13,J78,l987")
    s = r.Address(0, 0)
    MsgBox s
End Sub

您可以使用分割（）

将其转换为字符串的数组

Sub dural()
    Dim r As Range, s As String
    Set r = Range("A1,B9,D13,J78,l987")
    s = r.Address(0, 0)
    MsgBox s
    ary = Split(s, ",")
End Sub

Excel VBA - 拆分数组并返回列表

1 个答案: