1. 首页
  2. SEO优化
  3. SEO案例

wps多个sheet表格合并为一张表

使用wps开发工具中的vb编辑器,粘贴下面代码。然后执行

Sub hz()
Dim bt, i, r, c, n, first As Long
bt = 1 ‘表头有几行,这里的1就改成几
Cells.Clear
For i = 1 To Sheets.Count
If Sheets(i).Name <> ActiveSheet.Name Then
If first = 0 Then
c = Sheets(i).Cells(1, Columns.Count).End(xlToLeft).Column
Sheets(i).Range(“A1”).Resize(bt, c).Copy Range(“A1”)
n = bt + 1: first = 1
End If
r = Sheets(i).Cells(Rows.Count, “A”).End(xlUp).Row
Sheets(i).Range(“A” & bt + 1).Resize(r – 1, c).Copy Range(“A” & n)
n = n + r – bt
End If
Next
End Sub

原创文章,作者:无言,如若转载,请注明出处:http://www.wy609.com/archives/2019/813.html

发表评论

登录后才能评论

联系我们

1055297669

在线咨询:点击这里给我发消息

邮件:1055297669@qq.com

工作时间:周一至周五,10:30-18:30,节假日休息

QR code