代码之家 › 专栏 › 技术社区 › CATSandCATSandCATS

在VBA中引用没有固定地址的新列

excel-vba vba excel

CATSandCATSandCATS · 技术社区 · 5 年前

我正试图找出如何引用紧跟在标有“total”的列前面的列。

我的宏应该找到标记为“total”的列,在它前面插入一行,然后为指定的单元格循环使用sumif函数。我已经完成了插入一列部分的工作,但是我还不知道如何在编写sumif时引用这个新列。

我正试图找到我写的参考资料。

关于如何使这个参考工作有什么想法吗?

谢谢!你说什么?

为了提高透明度,我在这里从另一个用户的问题中插入了一个列代码。

For s = LBound(sheetArray) To UBound(sheetArray)
        With sheetArray(s)
            With .Rows(7).SpecialCells(XlCellType.xlCellTypeConstants, xlTextValues)
                Set f = .Find(what:="Total", LookIn:=xlValues, lookat:=xlWhole)
                If Not f Is Nothing Then
                    firstAddress = f.Offset(, 1).Address 
                    Do
                        f.EntireColumn.Insert
                        Set f = .FindNext(f)
                    Loop While f.Address <> firstAddress
                End If
            End With
        End With
    Next s
    
'The above works.

    For s = 1 To UBound(sheetArray)
        With sheetArray(s)
            For i = 8 To 21
                Set criteriaDept = sheetArray(s).Cells("B7")
                Set criteriaSite = sheetArray(s).Cells(i, 3)
                Set criteriaTherapy = sheetArray(s).Cells("C6")
                    sheetArray.Cells(i, [[HERE]]) = SumIf(sumIfRange, cSiteRange, criteriaSite,       
                        cDeptRange, criteriaDept, cTherapyRange, criteriaTherapy)
            Next i
        End With
    Next s

1 回复 | 直到 5 年前

BruceWayne 5 年前

首先,得到紧挨着“total”前面的列号(通过“preceding”,我假设您是指左边的列号):

Dim preCol as Long
preCol = Sheets("Sheet1").Rows(1).Find(what:="Total").Offset(0, -1).Column
'Now, you can use that variable:
' ...whatever
sheetArray.Cells(i, preCol) = ...

请注意,您可能需要更改/更新 Sheets("Sheet1") 任何一张纸都有这个列标题。

推荐文章

CPS · 当变量值为空时,在另一个变量中赋值

2 年前

xris23 · 通过VBA选择命名范围,让用户直接编辑单元格

2 年前

Stormer · 从Access格式化Excel单元格无效

2 年前

j johns · 通过VBA将ascii art添加到命令提示符

2 年前

BinaryCat · Excel-将单元格转换为具有成对数据的行

2 年前

Waleed · 以下拆分函数的(0)表示什么?

2 年前

judo_ürgens · vlookup和sumif(每个项目的总利润)

2 年前

Louay Alkhawam · 在任意多个列中计算包含子字符串*[橙色]*的行,而不重复计算?

2 年前

smrmodel78 · VBA创建表格未选择正确的范围

2 年前

HouÅ¡tí · 如何检测鼠标释放

2 年前