Question

如何将excel的sheet1和sheet2的内容的合并到sheet3，

最简单的就是复制和粘贴了，但是无法联动，用vba怎么实现；内容格式是一样的，就是内容不一样

Answer 1

　把表2、表3的人名、或别的，做成一个不重复的列，放到sheet1里，然后，用查找公式，引到表sheet1.
　　如条件求和sumif() 多条件求和sumifs()，百度一下用法。公共类似：
　　=sumif(sheet2!a:a,a1,sheet2!b:b)+sumif(sheet3!a:a,a1,sheet3!b:b)

追问

不要给我公式不适用

Answer 2

没有具体内容也写不出VBA阿。

追问

A-H列内容咯

追答

A到H全部复制过去，其他不用管？
你有放图吗，我这边什么都看不到、。

追问

不用

追答

什么都不管直接复制就是这样。
Sub 宏2()
'Sheets("Sheet1").Select
Range("A:h").Select
Selection.Copy
Sheets("Sheet3").Select
Cells(1, 1).Select
ActiveSheet.Paste
Sheets("Sheet2").Select
i = Application.CountA(Sheets("Sheet2").Range("a:a"))
Range("a1:h" & i).Select
Selection.Copy
Sheets("Sheet3").Select
n = Application.CountA(Sheets("Sheet3").Range("a:a")) + 1
Cells(n, 1).Select
ActiveSheet.Paste
End Sub

追问

小问题有，sheet2的标题我不要 第一行，sheet的1的标题要

追答

a1改成a2就行。
Sub 宏2()
'Sheets("Sheet1").Select
Range("A:h").Select
Selection.Copy
Sheets("Sheet3").Select
Cells(1, 1).Select
ActiveSheet.Paste
Sheets("Sheet2").Select
i = Application.CountA(Sheets("Sheet2").Range("a:a"))
Range("a2:h" & i).Select
Selection.Copy
Sheets("Sheet3").Select
n = Application.CountA(Sheets("Sheet3").Range("a:a")) + 1
Cells(n, 1).Select
ActiveSheet.Paste
End Sub