总和可变列

Question

在下面的代码行中，我试图总结一个变量范围（列U）。可否请您让我知道我在我的代码中做错了什么（任何帮助表示赞赏）的代码问题

线：

Sheets(gcsReportSheetName).Cells(LCounter, 3).FormulaR1C1 = "=sum(" & rng.Value & "!" & Lsumcolumn & ":" & Lsumcolumn & ")" 

的完整代码。

Sub Report() 

Dim rng As Range 
Dim LCounter As Long 
Dim sLsheet As String 
Dim Lsumcolumn As Long 
Set gRwksconfigeration = Sheets("Config") 
Set gRnct_Funds_2 = gRwksconfigeration.Range(CT_Funds_2) 

LCounter = 3 

For Each rng In gRnct_Funds_2 

    Sheets(gcsReportSheetName).Cells(LCounter, 1) = rng.Value 

    If rng.Value = "" Then 

      Exit Sub 

     Else 

      Sheets(gcsReportSheetName).Cells(LCounter, 2) = Sheets(rng.Value).Cells.Find(What:="Value", After:=Cells(1, 1), LookIn:=xlValues, LookAt:= _ 
        xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _ 
        False, SearchFormat:=False).End(xlDown).Value 
      Lsumcolumn = Sheets(rng.Value).Cells.Find(What:="illiquid check", After:=Cells(1, 1), LookIn:=xlValues, LookAt:= _ 
        xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _ 
        False, SearchFormat:=False).Column 
      Sheets(gcsReportSheetName).Cells(LCounter, 3).FormulaR1C1 = "=sum(" & rng.Value & "!" & Lsumcolumn & ":" & Lsumcolumn & ")" 


      LCounter = LCounter + 1 

    End If 

Next 

End Sub 

Answer 1

您的表名（rng.Value）是否包含空格？如果是这样，你需要添加单引号括起来的名称，像这样：

='Test Sheet'!A:A 

而且，使用的是R1C1符号，这比A1符号（see more info here）有一点不同。以下两个示例都应该可以工作。

---

您与R1C1符号的代码应该是这样的：

Sheets(gcsReportSheetName).Cells(LCounter, 3).FormulaR1C1 = "=sum('" & rng.Value & "'!C" & Lsumcolumn & ")" 

---

你有A1符号的代码应该是这样的：

sSumColumn = Choose(Lsumcolumn,"A","B","C","D","E","F","G") ' Expand this to include all column headers. 

Sheets(gcsReportSheetName).Cells(LCounter, 3).Formula = "=sum('" & rng.Value & "'!" & sSumColumn & ":" & sSumColumn & ")" 

即使你的工作表名称做不包含空格，这个语法应该仍然有效。

---

有关Choose函数来获取列标题的一个额外的音符......

这可能是写出来的，如果你正在寻找大量列的痛苦，所以我有一个功能，我用它来获取该值更简单（充分披露，我抓住这个从another site on the internet，但更新它自己的工作2007/2010/2013版本的Excel）：

Public Function ColumnLetter(ColumnNumber As Integer) As String 

    If ColumnNumber > 26 Then 

     If ColumnNumber > 702 Then 
      ' Compatible with Excel 2007+ extension of columns 
      ColumnLetter = Chr(Int((Int((ColumnNumber - 1)/26) - 1)/26) + 64) & _ 
       Chr((Int((ColumnNumber - 1)/26) - 1) Mod 26 + 65) & _ 
       Chr(((ColumnNumber - 1) Mod 26) + 65) 
     Else 
      ' 1st character: Subtract 1 to map the characters to 0-25, 
      '     but you don't have to remap back to 1-26 
      '     after the 'Int' operation since columns 
      '     1-26 have no prefix letter 

      ' 2nd character: Subtract 1 to map the characters to 0-25, 
      '     but then must remap back to 1-26 after 
      '     the 'Mod' operation by adding 1 back in 
      '     (included in the '65') 

      ColumnLetter = Chr(Int((ColumnNumber - 1)/26) + 64) & _ 
       Chr(((ColumnNumber - 1) Mod 26) + 65) 
     End If 
    Else 
     ' Columns A-Z 
     ColumnLetter = Chr(ColumnNumber + 64) 
    End If 
End Function 

相反的Choose以上公式，可以使用sSumColumn = ColumnLetter(Lsumcolumn)。