Question

如何使用列号而不是字母？

在vba中创建范围

Answer 1

要参考细胞范围，您可以使用Range(Cell1,Cell2)，样本：

Sub RangeTest()
  Dim testRange As Range
  Dim targetWorksheet As Worksheet

  Set targetWorksheet = Worksheets("MySheetName")

  With targetWorksheet
    .Cells(5, 10).Select 'selects cell J5 on targetWorksheet
    Set testRange = .Range(.Cells(5, 5), .Cells(10, 10))
  End With

  testRange.Select 'selects range of cells E5:J10 on targetWorksheet

End Sub

enter image description here

Answer 2

以下是选择范围A1的两种解决方案。

Cells(1,1).Select '(row 1, column 1) 
Range("A1").Select

另请查看此链接;

http://www.excel-vba.com/vba-code-2-6-cells-ranges.htm

我们强烈建议您使用Range而不是Cells来使用   细胞和细胞群。它使你的句子更加清晰   你不必忘记列AE是第31栏。

您要使用Cell的唯一时间是您想要全部选择   工作表的单元格。例如：Cells.Select选择全部   单元格，然后清空您将使用的值或公式的所有单元格：   Cells.ClearContents

-

“细胞”在动态设置范围时特别有用   通过使用计数器循环遍历范围。使用定义范围   作为列号的字母在短期内可能更透明，   但它也会使你的应用程序变得更加严格，因为它们很难   编码“表示 - 不是动态的。

感谢Kim Gysen

Answer 3

Range.EntireColumn

是的！您可以使用Range.EntireColumn MSDN

dim column : column = 4

dim column_range : set column_range = Sheets(1).Cells(column).EntireColumn

范围（＆＃34;的ColumnName为：ColumnName＆＃34）

如果您在特定列之后，则可以使用以下语法创建硬编码列范围： Range("D:D")。

但是，我使用整列，因为它可以更灵活地在以后更改该列。

Worksheet.Columns

Worksheet.Columns提供对工作表中列的Range访问权限。 MSDN

如果您想访问第一张表的第一列。你会在工作表上调用Columns函数。

dim column_range: set column_range = Sheets(1).Columns(1)

任何Columns MSDN

也可以使用Range属性如果您有单个单元格的范围但想要到达该行上的其他单元格，

EntireRow也很有用，类似于LOOKUP

dim id : id = 12345


dim found : set found = Range("A:A").Find(id)

if not found is Nothing then
    'Get the fourth cell from the match
    MsgBox found.EntireRow.Cells(4)
end if

Answer 4

这是ConvertToLetter函数的精简替代，理论上它应该适用于所有可能的正整数。例如，1412产生“BBH”作为结果。

Public Function ColumnNumToStr(ColNum As Integer) As String
Dim Value As Integer
Dim Rtn As String
    Rtn = ""
    Value = ColNum - 1
    While Value > 25
        Rtn = Chr(65 + (Value Mod 26)) & Rtn
        Value = Fix(Value / 26) - 1
    Wend
    Rtn = Chr(65 + Value) & Rtn
    ColumnNumToStr = Rtn
End Function

Answer 5

如果您希望将列号转换为字母：

Function ConvertToLetter(iCol As Integer) As String
    Dim iAlpha As Integer
    Dim iRemainder As Integer
    iAlpha = Int(iCol / 27)
    iRemainder = iCol - (iAlpha * 26)
    If iAlpha > 0 Then
        ConvertToLetter = Chr(iAlpha + 64)
    End If
    If iRemainder > 0 Then
        ConvertToLetter = ConvertToLetter & Chr(iRemainder + 64)
    End If
End Function

这样你可以这样做：

Function selectColumnRange(colNum As Integer, targetWorksheet As Worksheet)
    Dim colLetter As String
    Dim testRange As Range
    colLetter = ConvertToLetter(colNum)
    testRange = targetWorksheet.Range(colLetter & ":" & colLetter).Select
End Function

该示例函数将选择整个列（即Range（“A：A”）。选择）

来源：http://support.microsoft.com/kb/833402

Answer 6

我非常喜欢stackPusher的ConvertToLetter功能作为解决方案。然而，在使用它时，我注意到由于数学中的一些缺陷，在非常特定的输入处发生了几个错误。例如，输入392返回＆＃39;返回＆＃39;返回＆＃39;返回＆＃39; P＆＃39;等等。

我重写了函数，结果为所有输入产生了正确的输出，最高为703（这是第一个三字母列索引，AAA）。

Function ConvertToLetter2(iCol As Integer) As String
    Dim First As Integer
    Dim Second As Integer
    Dim FirstChar As String
    Dim SecondChar As String

    First = Int(iCol / 26)
    If First = iCol / 26 Then
        First = First - 1
    End If
    If First = 0 Then
        FirstChar = ""
    Else
        FirstChar = Chr(First + 64)
    End If

    Second = iCol Mod 26
    If Second = 0 Then
        SecondChar = Chr(26 + 64)
    Else
        SecondChar = Chr(Second + 64)
    End If

    ConvertToLetter2 = FirstChar & SecondChar

End Function

Answer 7

这些答案看起来很奇怪。除非我遗漏了某些内容......如果你想将数字转换为字母，你可以使用for循环将它们全部存储在数组中，然后调用与该列字母相关联的数字。像这样

For intloop = 1 To 26
    colcheck(intloop) = Chr$(64 + intloop)
    For lenloop = 1 To 26
        colcheck((intloop * 26) + lenloop) = Chr$(64 + intloop) & Chr$(64 + lenloop)
        For terloop = 1 To 26
            colcheck((intloop * 676) + (lenloop * 26) + terloop) = Chr$(64 + intloop) & Chr$(64 + lenloop) & Chr$(64 + terloop)
            For qualoop = 1 To 26
                colcheck((intloop * 17576) + (lenloop * 676) + (terloop * 26) + qualoop) = Chr$(64 + intloop) & Chr$(64 + lenloop) & Chr$(64 + terloop) & Chr$(64 + qualoop)
            Next qualoop
        Next terloop
    Next lenloop
Next intloop

然后只使用colcheck（yourcolumnnumberhere），你将得到与该字母相关的列标题（即colcheck（703）= AAA

Answer 8

哈哈，可爱 - 让我也包括我的stackPusher代码:)。我们在C＃中使用此功能。适用于所有Excel范围。：

public static String ConvertToLiteral(int number)
{
        int firstLetter = (((number - 27) / (26 * 26))) % 26;
        int middleLetter = ((((number - 1) / 26)) % 26);

        int lastLetter = (number % 26);
        firstLetter = firstLetter == 0 ? 26 : firstLetter;
        middleLetter = middleLetter == 0 ? 26 : middleLetter;
        lastLetter = lastLetter == 0 ? 26 : lastLetter;
        String returnedString = "";
        returnedString = number > 27 * 26 ? (Convert.ToChar(firstLetter + 64).ToString()) : returnedString;
        returnedString += number > 26 ? (Convert.ToChar(middleLetter + 64).ToString()) : returnedString;
        returnedString += lastLetter >= 0 ? (Convert.ToChar(lastLetter + 64).ToString()) : returnedString;
        return returnedString;
}

Answer 9

Function fncToLetters(vintCol As Integer) As String

        Dim mstrDigits As String

    ' Convert a positive number n to its digit representation in base 26.
    mstrDigits = ""
    Do While vintCol > 0
        mstrDigits = Chr(((vintCol - 1) Mod 26) + 65) & mstrDigits
        vintCol = Int((vintCol - 1) / 26)
    Loop

    fncToLetters = mstrDigits

End Function

使用vba中的列号创建excel范围？

9 个答案:

Range.EntireColumn

范围（＆＃34;的ColumnName为：ColumnName＆＃34）

Worksheet.Columns