Question

我有一个特殊的问题，即不仅行和列中的值连续变化，偶尔行数也会变化;比如在30到70行之间。我已经尝试了一个代码（我是excel vba的新手......），如下所示，我可以将选定的代码复制到另一个工作表。这是因为，当行更改时，每列的总和是不正确的，为了解决这个问题，我试图将数据从源表复制到另一个表。修复代码的任何帮助都很棒！谢谢!!

数据结构如下：

A   B   C
229 498 134
119 111 314
298 265 698
298 264 124
427 373 174
102 532 245

Excel VBA代码

Sub dynamicRange()

Dim startCell As Range, lastRow As Long, lastCol As Long, Ws As Worksheet

Set Ws = Sheets("N_TS")
Set startCell = Range("A3")

lastRow = Ws.cells(Ws.Rows.Count, startCell.Column).End(xlUp).Row
lastCol = Ws.cells(startCell.Row, Ws.Columns.Count).End(xlToLeft).Column

Ws.Range(startCell, Ws.cells(lastRow, lastCol)).Select
Selection.Select
Selection.Copy Sheets("Sheet3").Range("A1")

End Sub

注意 - 它在End Sub之上，我不知道如何编写代码以将所有列同时作为Range ... ...

Answer 1

不知道如何编写代码以将所有列同时汇总为Range

删除最后三行并改为：

With Sheets("Sheet3").Range("A1").Resize(lastCol)
  .Formula = "=SUM('N_TS'!A3:A" & lastRow & ")"
  .Value = .Value
End With

总结多个列和行的动态范围

1 个答案: