我在A列中有值,在B列中有值,我希望在C列中减去这两个值,因此它会C1=B1-A1, C2=B2-A2
等。
我仍然无法在VBA中编写代码,所以我尝试手动使用宏,但问题是我在这个工作表中有很多列表,并且每个列表都有不同的行数,所以我最终在特定列表上进行了比我更多的计算需要。如何仅针对特定列表中的行数进行减法?
答案 0 :(得分:3)
答案 1 :(得分:1)
试试这个:
Sub forEachWs()
Dim ws As Worksheet
Dim lastRow As Long
For Each ws In ActiveWorkbook.Worksheets
lastRow = ws.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
ws.Range("C1:C" & lastRow).Formula = "=B1-A1"
Next
End Sub