EXCEL VBA 问题。从range里减掉最后一列。

去弄清楚什么叫列，什么叫行。

减列：

Dim Rng1 As Range, Rng2 As Range
Set Rng1 = [a1:b10]
Set Rng2 = Rng1.Columns(1).Resize(, Rng1.Columns.Count - 1)

减行：

Dim Rng1 As Range, Rng2 As Range
Set Rng1 = [a1:b10]
Set Rng2 = Rng1.Rows("1:" & Rng1.Rows.Count - 1)

那就直接range = [a1:b9]呀

您好，这样：
Function LastColumn() As Long
Dim ix As Long
ix = ActiveSheet.UsedRange.Column - 1 + ActiveSheet.UsedRange.Columns.Count
LastColumn = ix
End Function
Function LastRow() As Long
Dim ix As Long
ix = ActiveSheet.UsedRange.Row - 1 + ActiveSheet.UsedRange.Rows.Count
LastRow = ix
End Function