Question

我只需要使用按钮删除单个单元格。

所以我正在开发一个项目，用户只需按一个按钮，电子表格就根据他们输入的数据量进行打印。但是我们有一个合并的单元格，他们可以放入数据，但如果他们不输入任何数据数据，我们需要单元格为空。我正在使用的代码片段如下。整个项目都在该片段之下以供参考。

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

Answer 1

您可以执行以下操作。只需引用合并范围的左上角并将值设置为“”

    If Range("B15").Value = "Enter and special posting instruction here." Then
          Range("B15").Value = ""
    End If

希望有所帮助

Caleeco

Answer 2

如何：

    If Range("B15") = "Enter and special posting instruction here." Then
        Range("B15:E19").ClearContents
    End If

根据文本标准删除单个单元格的快速简便宏。

2 个答案: