在excel中如何用VBA對指定單元格區域列印，求具體程式碼

我這是自動找到最後一行的，符合你的要求，請試試。

Private Sub CommandButton1_Click()Dim row_last As IntegerDim temp1 As IntegerSelection.SpecialCells(xlCellTypeLastCell).Selectflag = FalseDo While flag = False If ActiveCell.Row = 1 Then Exit Do End If Selection.End(xlToLeft).Select temp1 = IsEmpty(ActiveCell.Value) Selection.End(xlToRight).Select temp2 = IsEmpty(ActiveCell.Value) If temp1 = True And temp2 = True Then Selection.Offset(-1, 0).Select Else flag = True Exit Do End IfLoopSelection.End(xlToLeft).Selectrow_last = ActiveCell.RowRange(Cells(1, 1), Cells(row_last, 1)).Select Selection.PrintOut Copies:=1End Sub

在excel的工具功能中進入vba編輯器執行宏保護公式的功能，即可對指定單元格，或區域單元格進行保護。

具體操作步驟如下：

1、開啟EXCEL2003，輸入並編輯好相關的資料。

2、編輯相關的統計公式，如在原始資料最後一列增加總分列，並在K4單元格輸入：=SUM(D4:J4)，然後往下拖拉填充公式。

3、點選EXCEL工作薄的工具——宏

4、在彈出的介面選擇保護公式，點選執行。

5、最後按Alt F11在彈出的介面輸入密碼即可。

注意事項：

為了避免別人進入VBA編輯模式檢視解鎖密碼或者亂修改程式碼，最後一定要記得將宏設定密碼。