Question

这对我来说是最困难的事情，这是在过滤堆栈溢出4小时后没有结果。

如果你有空白行并且它不会删除你的标题，那就不在乎了。

这是一个简单的解决方案。

Cursor songDetailsCursor = context.getContentResolver().query(MediaStore.Audio.Media.EXTERNAL_CONTENT_URI,
                new String[]{MediaStore.Audio.Media.DATA},
                MediaStore.Audio.Media._ID + " = " + songId,
                null, null);

如上呼叫

以下的潜艇。

Call RangeA2SelectandClear     
Call RangeB2SelectandClear     
Call RangeC2SelectandClear    
Call RangeD2SelectandClear

编辑＆＃34;更多做事的方式：＆＃34;

如果它没有选择你的范围。

Sub RangeA2SelectandClear()
Range(Cells(2, 1), Cells(Rows.Count, 1)).ClearContents
End Sub

Sub RangeB2SelectandClear()
Range(Cells(2, 2), Cells(Rows.Count, 2)).ClearContents
End Sub

Sub RangeC2SelectandClear()
Range(Cells(2, 3), Cells(Rows.Count, 3)).ClearContents
End Sub

Sub RangeD2SelectandClear()
Range(Cells(2, 4), Cells(Rows.Count, 4)).ClearContents
End Sub

选择一行单元格（计算列而不是计算行数）

Range(Cells(2, ColNum), Cells(Rows.Count, ColNum).End(xlUp))

选择一系列列，不包括标题用法：

Range(Cells(2, 2), Cells(2, Columns.Count).End(xlToLeft)).Select

或*已更新10-22-15

Range(Cells(2, "A"), Cells(Rows.Count, "D").End(xlUp)).Select

以下选择另一个工作表中的范围，但您在技术上无法选择另一个工作表中的范围，因此我只使用我想要的特定操作进行选择。如果我以这种方式使用它，这会使代码更快。 *已更新10-22-15

Range("A7", Cells(Rows.Count, "E").End(xlUp)).Select

Answer 1

让一个程序适用于任何列而不是每个列的过程是不是更好？

Sub Test()

    Call ColumnSelectAndClear(1)
    Call ColumnSelectAndClear(2)
    ColumnSelectAndClear 3

End Sub

Public Sub ColumnSelectAndClear(ColNum As Long)

    With ActiveSheet
        .Range(.Cells(2, ColNum), .Cells(Rows.Count, ColNum)).ClearContents
    End With

End Sub

Answer 2

调用RangeA2SelectandClear

Sub RangeA2SelectandClear()
Range(Cells(2, 1), Cells(Rows.Count, 1)).ClearContents
End Sub

如何选择除标题以外的完整列？

2 个答案: