admin管理员组文章数量:1530921
2024年6月28日发(作者：)
.
删除B列中字符串数值少于21的单元格所在的行
Sub 删除行()
r = Range("B65536").End(xlUp).Row '行数
For h = r To 1 Step -1
If Cells(h, 2) < 21 Then Cells(h, 2).
Next
End Sub
-------------------------
【工作表合并】将同一工作簿中的所有工作表合并到一个工作表中
新建一个工作表，写入代码[在新建的工作表标签处右键 查看代码（找不到的直接按一下alt+F11) 把下
面 的代码复制进去 然后点上面的运行 运行子程序即可]：
Sub 合并当前工作簿下的所有工作表()
Updating = False
For j = 1 To
If Sheets(j).Name <> Then
X = Range("A65536").End(xlUp).Row + 1
Sheets(j). Cells(X, 1)
End If
Next
Range("B1").Select
Updating = True
MsgBox "当前工作簿下的全部工作表已经合并完毕！", vbInformation, "提示"
End Sub
*********************************************************
代码这样写也行：
Sub c()
For i = To 2 Step -1
Sheets(i).Select
Sheets(i).
Sheets(1).Select
Cells(Cells(65000, 1).End(xlUp).Row + 1, 1).Select
'Sheets(i).Delete
Next i
End Sub
************************************************************
把一个工作簿中的所有表单合并成一个表单，怎么去掉重复的表头、标题行？方法如下：
.
.
Sub c()
For i = To 2 Step -1
Sheets(i).(1).Copy Sheets(1).Cells(65536, 1).End(xlUp).Offset(1)
Next i
End Sub
说明：
函数OFFSET(reference,rows,cols,height,width)以指定的引用为参照系，通过给定偏
移量得到新的引用。返回的引用可以为一个单元格或单元格区域。并可以指定返回的行数或列
数。通俗的讲就是OFFSET(参考单元格，移动的行数，移动的列数，所要引用的行数，所要引用
的列数） 参考《关于offset函数》
第三行中第一个offset(1)是假设要要去掉的表头行数，如果有2行表头，就改成offset(2)，要去掉几
行表头括号中的数字就改成几。
第二个
offset(1)表示合并以后表格与表格之间要间隔的空行，offset
(1)表示不留空行，offset(2)表示间隔1行空行，以此类推。也可以这样写：
Sub c()
For i = To 2 Step -1
Sheets(i).(2).Copy Sheets(1).Cells(Cells(65536, 1).End(xlUp).Ro
w + 1, 1).Offset(0) ‘这个offset(0)可以不要
Next i
End Sub
****************************************************************
或者用以下宏代码
将同一工作簿中的所有工作表合并到一个新建的工作表中
按ALT+F11调出ＶＢＡ窗口，插入一个模块，然后把下面的代码复制进去。
.
版权声明：本文标题：EXCEL常用VBA代码 内容由热心网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：https://m.elefans.com/dongtai/1719553293a784656.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。
发表评论