有两张表格,第一张表有2000行带姓名的数据,第二张表有100行带姓名数据,第二张表100人当
答案:2 悬赏:20 手机版
解决时间 2021-04-27 10:22
- 提问者网友：一抹荒凉废墟
- 2021-04-26 20:10
有两张表格,第一张表有2000行带姓名的数据,第二张表有100行带姓名数据,第二张表100人当
最佳答案
- 五星知识达人网友：鸠书
- 2021-04-26 20:34
Sub 合并当前工作簿下的所有工作表()
Application.ScreenUpdating = False
For j = 1 To Sheets.Count
If Sheets(j).Name <> ActiveSheet.Name Then
X = Range("A65536").End(xlUp).Row + 1
Sheets(j).UsedRange.Copy Cells(X, 1)
End If
Next
Range("A1").Select
Application.ScreenUpdating = True
MsgBox "当前工作簿下的全部工作表已经合并完毕！", vbInformation, "提示"
End Sub追问能详细点吗，解释一下，我看不懂追答能不能用？ 你直接运行一下这段代码
Application.ScreenUpdating = False
For j = 1 To Sheets.Count
If Sheets(j).Name <> ActiveSheet.Name Then
X = Range("A65536").End(xlUp).Row + 1
Sheets(j).UsedRange.Copy Cells(X, 1)
End If
Next
Range("A1").Select
Application.ScreenUpdating = True
MsgBox "当前工作簿下的全部工作表已经合并完毕！", vbInformation, "提示"
End Sub追问能详细点吗，解释一下，我看不懂追答能不能用？ 你直接运行一下这段代码
全部回答
- 1楼网友：行路难
- 2021-04-26 20:49
第二张表要对应第一张表的话，请使用VLOOKUP公式
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯