在Excel中如何使用VB，在某一列空单元格最后一行自动求和当前列，并自动保存和打印

发布网友发布时间：2022-12-21 03:28

共2个回答

热心网友时间：2023-10-02 15:53

你描述的不是很详细

不过意思差不多理解了

Sub 求和打印()
行数 = Range("D65536").End(xlUp).Row '获取D列最后一个非空单元格
总数量 = Application.Sum(Range(Cells(2, 4), Cells(行数, 4))) '计算出D列总数量
Range("D" & 行数 + 1 & "") = 总数量 '把计算出的总数量赋值给D列行数+1行的单元格（类似于EXCEL的合计）
总价值 = Application.Sum(Range(Cells(2, 8), Cells(行数, 8))) '计算出H列总数量
Range("H" & 行数 + 1 & "") = 总价值 '把计算出的总数量赋值给H列行数+1行的单元格（类似于EXCEL的合计）
ActiveSheet.PageSetup.PrintArea = "$A$1:$H$" & 行数 + 1 & "" '设置打印区域
ActiveSheet.PrintOut '打印
ThisWorkbook.Save '保存
End Sub

热心网友时间：2023-10-02 15:54

Sub 合计保存打印()
Dim numTotal As Range
Dim valueTotal As Range
Dim height As Integer
Dim printoutArea As Range
Set numTotal = Range("d65536").End(xlUp)
Set valueTotal = Range("H65536").End(xlUp)
height = numTotal.Row - 2
Cells(numTotal.Row, 1) = "合计"
numTotal = Application.Sum(numTotal.Offset(-height, 0).Resize(height, 1))
valueTotal = Application.Sum(valueTotal.Offset(-height, 0).Resize(height, 1))
ThisWorkbook.Save
Set printoutArea = Range("a1", valueTotal)
ActiveSheet.PageSetup.PrintArea = printoutArea
ActiveSheet.PrintOut

End Sub

Private Sub CommandButton1_Click()
Call 合计保存打印
End Sub

在Excel中如何使用VB,在某一列空单元格最后一行自动求和当前列,并自动...

excel表格中在每列的最后一格没有数据的地方自动求和

在输入数据的时候就求和。在输入完一列数据的时候，选中往下的那个空单元格，按一下ALT+=，自动将上面所有数据求和。输完数据后在求和。使用VB:Sub 求和()i = 1Do While Cells(1, i) <> ""k = Cells(65536, i).End(xlUp).RowDebug.Print kCells(k + 1, i).FormulaR1C1 = "=SUM(R...

在excel的VB中如何求一列数的和?

现在的表格都有求和功能，就是把鼠标放在你想求和的数字上，连续数字按住鼠标往下拉，拉到结束的地方，在表格的右下角就会出现你要求的和

用VB 找到excel 最后一行,并给最后一行下一行第一列赋值

Worksheets("export").Range("num"&":"&"num").Value = worksheets("import").Range("1:1").Value

如何用vb实现在EXCEL中自动计算加减乘除?

要在Excel中使用VBA进行自动加减乘除运算，您可以使用以下代码示例：Sub AutoMathOperations()Dim ws As Worksheet Dim lastRow As Long ' 设置要进行运算的工作表 Set ws = ActiveSheet ' 获取最后有数据的行号 lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row ' 定义运算符和操作数的列...

怎么用vb读取excel表格某一列的内容,并且判断当某个单元格为空的时候...

例如第二列 Sub ff()If Cells(1, 2).Value = "" Then MsgBox "一行为空，程序退出"Exit Sub End If For i = 2 To 100 If Cells(i, 2) = "" Then Cells(i, 2) = Cells(i - 1, 2)Next i End Sub

Excel用宏vb命令怎指定某一列锁定,其他单元格可编辑与合并?

所以只能在原有结构基础上进行修改，不能进行格式的调整，格式部分只能修改填充这类非结构内容，如果非要修改，那么可以直接用VBA模拟锁定工作表的某一列，也就是在某一列所有单元格上触发select事件，可以自动取消select，转移到其他位置或者直接提示报警框，下面是个示例：结果如下：这种保护并不是加密 ...

如何在excel表中的一个单元格中自动显示最后一次保存文档时当天的日期...

.[A1] = DateEnd Sub 保存工作薄为启用宏文件，且文件开启宏，即可在Sheet1 A1单元格记录最后一次保存时间。开启宏的方法：菜单栏---文件 ---Excel选项--- 信任中心---信任中心设置 ---宏设置：启用所有宏，保存，关闭Excel 文件，再次打开即已启用宏。

现在在写EXCEL中的VB代码,返回EXCEL中某一个单元格对应的行号和列号...

下面是一个实例，在a1:e500里查找“a1” 其中c.Address就是行号和列号的文本格式例如$B$1 c.Column是列号， c.Row是行号 With Sheets("sheet1").Range("a1:e500")Set c = .Find("a1", LookIn:=xlFormulas)If Not c Is Nothing Then firstAddress = c.Address firstColumn = c.Column f...

如何用VB实现:在EXCEL文档指定区域单元格选中后,自动把这些单元格数据粘...

单击 A1:C10任何一个地方，就执行，否则不执行。无需设置按钮 Sub 自动复制()arr = Range("A1:C10")Sheets(2).Cells(Sheets(2).Range("a65536").End(xlUp).Row + 2, 1).Resize(10, 3) = arr End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range)Dim tr, tc tr...