根据文本标准，快速简单的删除单个单元格。
我只需要使用一个button删除一个单元格。
所以我正在开发一个项目，在这个项目中，用户只需点击一个button，电子表格就会根据他们input的数据量进行打印。但是我们有一个合并的单元格，他们可以将数据放入，但是如果他们不input任何数据，我们需要单元格为空。 下面是我使用的代码片断。 整个项目在这个片段之下供参考。
Range("B15:E19").Select If Range("B15:E19") = "Enter and special posting instruction here." Then Range("B15:E19").ClearContents End If Option Explicit Sub LastRowInOneColumn() Dim MySheet As Worksheet Set MySheet = Worksheets("SIF Sheet") With MySheet Dim xLastRow As Long xLastRow = .Cells(.Rows.Count, "B").End(xlUp).Row Select Case True Case xLastRow > 21 And xLastRow < 46 'Application.Dialogs(xlDialogPrinterSetup).Show Worksheets("SIF Sheet").PrintOut From:=1, To:=1 Case xLastRow > 46 And xLastRow < 97 'Application.Dialogs(xlDialogPrinterSetup).Show Worksheets("SIF Sheet").PrintOut From:=1, To:=2 Case xLastRow > 98 And xLastRow < 149 'Application.Dialogs(xlDialogPrinterSetup).Show Worksheets("SIF Sheet").PrintOut From:=1, To:=3 Case xLastRow > 150 And xLastRow < 201 'Application.Dialogs(xlDialogPrinterSetup).Show Worksheets("SIF Sheet").PrintOut From:=1, To:=4 Case xLastRow > 202 And xLastRow < 253 'Application.Dialogs(xlDialogPrinterSetup).Show Worksheets("SIF Sheet").PrintOut From:=1, To:=5 Case xLastRow > 254 And xLastRow < 305 'Application.Dialogs(xlDialogPrinterSetup).Show Worksheets("SIF Sheet").PrintOut From:=1, To:=6 Case xLastRow > 306 And xLastRow < 357 'Application.Dialogs(xlDialogPrinterSetup).Show Worksheets("SIF Sheet").PrintOut From:=1, To:=7 Case xLastRow > 358 And xLastRow < 409 'Application.Dialogs(xlDialogPrinterSetup).Show Worksheets("SIF Sheet").PrintOut From:=1, To:=8 Case xLastRow > 410 And xLastRow < 461 'Application.Dialogs(xlDialogPrinterSetup).Show Worksheets("SIF Sheet").PrintOut From:=1, To:=9 Case xLastRow > 462 And xLastRow < 513 'Application.Dialogs(xlDialogPrinterSetup).Show Worksheets("SIF Sheet").PrintOut From:=1, To:=10 End Select End With Range("B15:E19").Select If Range("B15:E19") = "Enter and special posting instruction here." Then Range("B15:E19").ClearContents End If End Sub
你可以做到以下几点。 只需引用合并范围的左上angular并将值设置为“”
If Range("B15").Value = "Enter and special posting instruction here." Then Range("B15").Value = "" End If
希望有所帮助
Caleeco
怎么样：
If Range("B15") = "Enter and special posting instruction here." Then Range("B15:E19").ClearContents End If