计算每次变化的列中的数据和计算单元格中的 return
Count the data in a column which varies every time and return that count in a cell
我正在处理很多 excel 工作表。我需要计算某些列的行数,然后将该计数分配给一个单元格,最好是最后一个单元格正下方的单元格,其中包含正在计算的列上的数据。
我知道如何对单元格进行计数以及如何使用最后一个数据转到单元格下方的单元格。我只是无法将计数值分配给单元格。谢谢!
我用下面的来算
Range("G1").End(xlDown).Row
和下面转到最后一个单元格
Range("G1").End(xlDown).Offset(1, 0).Select
我建议使用 xlUp
方法而不是 xlDown
方法来查找最后使用的单元格。 xlDown
方法将在 G1 下面的下一个空单元格处停止,因此如果您的数据列中有空白,它将找不到最后使用的单元格。因此,您必须使用 xlUp
方法。
然后只需使用 LastRow
变量的值将其写入所需的单元格即可。
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Sheet1")
Dim LastRow As Long
LastRow = ws.Cells(ws.Rows.Count, "G").End(xlUp).Row
'so next free row is
ws.Cells(LastRow + 1, "G").Value = LastRow
我正在处理很多 excel 工作表。我需要计算某些列的行数,然后将该计数分配给一个单元格,最好是最后一个单元格正下方的单元格,其中包含正在计算的列上的数据。
我知道如何对单元格进行计数以及如何使用最后一个数据转到单元格下方的单元格。我只是无法将计数值分配给单元格。谢谢!
我用下面的来算
Range("G1").End(xlDown).Row
和下面转到最后一个单元格
Range("G1").End(xlDown).Offset(1, 0).Select
我建议使用 xlUp
方法而不是 xlDown
方法来查找最后使用的单元格。 xlDown
方法将在 G1 下面的下一个空单元格处停止,因此如果您的数据列中有空白,它将找不到最后使用的单元格。因此,您必须使用 xlUp
方法。
然后只需使用 LastRow
变量的值将其写入所需的单元格即可。
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Sheet1")
Dim LastRow As Long
LastRow = ws.Cells(ws.Rows.Count, "G").End(xlUp).Row
'so next free row is
ws.Cells(LastRow + 1, "G").Value = LastRow