dynamic范围与VBA中的间接一样
我以前没有使用过VBA，但是我find了一个能够计算出我需要的示例/工作工作簿。 我把它放到我正在工作的工作簿中，但问题是我需要按行号设置数据范围，并将列保持静态，不知道如何去做，尽pipe我已经尝试过了。 这是我发现的代码工作正常，但只有一个静态范围。
Sub UpdatePairStats() Dim LRange As Variant Dim LRows As Long Dim LCols As Long Dim C As New Collection Dim LItem As Long Dim LDesc As String Dim Counts(10000, 4) As String Dim i As Long, j As Long, k As Long On Error Resume Next 'Select sheet where data resides Sheets("Draw Data").Select 'Data range (where draw information resides) LRange = Range("C2:H1151") LRows = UBound(LRange, 1) LCols = UBound(LRange, 2) 'Loop through each row in LRange (find pairs) For i = 1 To LRows 'j and k create the pairs For j = 1 To LCols - 1 For k = j + 1 To LCols 'Separate pairs with a "." character (smaller number first) If LRange(i, j) < LRange(i, k) Then LDesc = LRange(i, j) & "." & LRange(i, k) Else LDesc = LRange(i, k) & "." & LRange(i, j) End If 'Add new item to collection ("on error resume next" is 'required above in this procedure because of this line of code) C.Add C.Count + 1, LDesc 'Retrieve indexnumber of new item LItem = C(LDesc) 'Add pair information to new item If Counts(LItem, 0) = "" Then Counts(LItem, 0) = LDesc Counts(LItem, 1) = LRange(i, j) Counts(LItem, 2) = LRange(i, k) End If 'Increment stats counter If Counts(LItem, 3) = "" Then Counts(LItem, 3) = "1" Else Counts(LItem, 3) = CStr(CInt(Counts(LItem, 3)) + 1) End If Next k Next j Next i 'Paste pairs onto sheet called PairStats Sheets("PairStats").Select Cells.Select Selection.Clear Cells(1, 1).Resize(C.Count, 4) = Counts 'Format headings Range("A1").FormulaR1C1 = "'Number1.Number2" Range("B1").FormulaR1C1 = "'Number1" Range("C1").FormulaR1C1 = "'Number2"Range("D1").FormulaR1C1 = "'Occurrences" Range("A1:D1").Select Selection.Font.Bold = True Selection.Font.Underline = xlUnderlineStyleSingle Columns("A:D").EntireColumn.AutoFit Range("F1").Select Range("F1").FormulaR1C1 = "Last Updated on " & Now() Sheets("Pairs").Select MsgBox "Pair statistics have been updated." End Sub 我需要设置的范围是
'Data range (where draw information resides) LRange = Range("C2:H1151")
我有其他计算工作正常（不是在VBA）通过使用INDIRECT从两个单独的单元格获取行值，但想知道如何在VBA中实现相同的东西。 我正在使用的公式是
=IFERROR(FREQUENCY(INDIRECT("'Draw Data'!$C"&B2&":$H"&B3),$N$3:$N$13),0)
我读过INDIRECT不能在VBA中使用，但有一个简单的代码可以做同样的工作吗？
首先你需要知道数据的最后一行，你可以通过以下方式来实现：
Dim LRwithdata As Long With Sheets("Draw Data") LRwithdata = .Range("C:H").Find("*", , , , , xlPrevious).Row LRange = .Range("C2:H" & LRwithdata) End With ' rest of your code here
编辑1：如果行被引用到其他单元格
With Sheets("Draw Data") LRange = .Range("C" & .Range("B2"), "H" & .Range("B3")) End With
关键是要熟悉范围句法，并在引用范围时相应地应用它。
你也可以检查下面的链接，以便你可以改善你的编码：
- 避免使用select/激活
- find最后一行
- 范围语法