Question

我相信我的问题是使用currentregion，但我不确定替代方法是什么。我已经在一些领域进行了一些工作，也许从长远来看这是可行的方法，但是如果我能对这个重复问题得到明确的答案，将不胜感激

Sub AddAmounts()

Dim AA As Range
Dim Total As Integer

Set AA = Cells(1, 3).CurrentRegion

Total = WorksheetFunction.Sum(AA)
    Debug.Print Total

AA.Offset(, -1) = Total

End Sub

我希望总数最终出现在单元格B1中，但是确实很不幸，我也得到了单元格B2和B3和B4中的结果< / p>

结果和期望结果的图像

Answer 1

这是因为您要偏移一个区域。由于您要偏移该区域中的第一个单元格，因此应该可以：

AA.Cells(1).Offset(, -1) = Total

编辑：希望阐明Cells()位：

Sub AddAmounts()
Dim AA As Range
Set AA = Cells(1, 3).CurrentRegion

AA.Offset(, -1).Select ' Compare this, to the next line
AA.Cells(1).Offset(,-1).Select ' ...and the next
AA.Cells(3).Offset(,-1).Select    
End Sub

使用当前区域的偏移量获取重复

1 个答案: