|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
本帖最后由 清风幽闲 于 2013-12-11 08:55 编辑
Sub g()
Sheet1.Select
t1 = [b3]: t2 = [b4]: t3 = [g4]
arr = Range("a6:z" & Cells(Rows.Count, 1).End(3).Row)
Sheet2.Select
lastrow = Cells(Rows.Count, 1).End(3).Row + 1
Cells(lastrow, 4).Resize(UBound(arr), UBound(arr, 2)) = arr
Range(Cells(lastrow, 1), Cells(lastrow-1 + UBound(arr), 1)) = t3
Range(Cells(lastrow, 2), Cells(lastrow-1 + UBound(arr), 2)) = t1
Range(Cells(lastrow, 3), Cells(lastrow-1 + UBound(arr), 3)) = t2
Sheet1.Select
[b3] = "": [b4] = "": [g4] = ""
Range("a6:z" & Cells(Rows.Count, 1).End(3).Row).ClearContents
End Sub
|
评分
-
1
查看全部评分
-
|