w=cells(rows.count,1).end(xlup).row+1要表示你要的单元格区域,可以表示为range("A" &w &":K" & w+11)或者range(cells(w,1),cells(w+11,"K"))也可以直接取得这个区域,代码如下Sub test() Dim rng1 As Range Set rng1 = Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(11, 11)End Sub