excel2010中利用vba代码轻松完成工作表的合并

1、例如：下图所示中，【1月】、【2月】、【3月】分别是员工对应月份的差旅费报销金额，我们需要将名称分别为【1月】、【2月】、【3月】的工作表中的内容合并到第四个名称为【1季度】的工作表中。

2、既然我们要用vba代码的方法解决这个问题，我们首先就要调出vba的代码窗口。点击【开发工具】选项卡下的【visual basic】，就调出了相关工作表的【microsoft visual basic for application】的窗口，点击【视图】/【代码窗口】，就调出了vba代码编辑窗口。

3、在代码编辑区录入下列代码或者复制下列代码至代码编辑区。Sub 合并多个工作表()Set wrks = Wor娱浣嫁装ksheets("1季度")For i = 1 To 3Set wrk = Worksheets(i & "月")na = wrk.Namenum = Application.CountA(wrk.Columns(1))nums = wrks.UsedRange.Rows.Countwrk.Range("a2:b" & num).Copy wrks.Cells(nums + 1, 1)Cells(nums + 1, 3).Resize(num - 1) = naNextEnd Sub