如何实现excel表格中所有有数据的单元格全选？

[sunnyko2005]

如何实现excel表格中所有有数据的单元格全选？比较菜鸟的问题 呵呵

[bigriverhorse]

Sub test()
    ActiveSheet.Cells.Select
End Sub

[倒大霉的上帝]

如果数据区域是连续的，那还好办点，如果不连续的话，估计就不好弄了

[sunnyko2005]

大河马 你给的ActiveSheet.Cells.Select 会把空白的单元格也选中，能不能只选中有数据的单元格？这些单元格是连续的~~

[jhone99]

For i = 5 To [L65536].End(xlUp).Row ' 从第5行到第12列有数据的最后一行

[bigriverhorse]

Sub test()
    ActiveSheet.UsedRange.Select
End Sub

[zzyong00]

Sub test()
   ThisWorkbook.ActiveSheet.UsedRange.Select
End Sub

[chinaboyzyq]

Sub test()
Dim iRows As Long, iCol As Integer
Dim i As Long, j As Long
Dim ss As String

iRows = ActiveSheet.UsedRange.Rows.Count
iCol = ActiveSheet.UsedRange.Columns.Count
For i = 1 To iRows
For j = 1 To iCol
If ActiveSheet.Cells(i, j) <> "" Then
ss = ss + Chr(64 + j) + LTrim(i) + ","
End If
Next j
Next i
ss = Left(ss, Len(ss) - 1)
Range(ss).Select

End Sub

[sunnyko2005]

谢谢大家 问题解决啦

[jhone99]

Range(Cells(1, 1), Cells(UsedRange.Rows, UsedRange.Columns)).Select

[jhone99]

[Quote=引用 5 楼 bigriverhorse 的回复:]
VB codeSub test()
ActiveSheet.UsedRange.SelectEnd Sub
[/Quote]

哦，可以这么用