EXCEL常用VBA代码.doc

.删除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).EntireRow.Delete NextEnd Sub -【工作表合并】将同一工作簿中的所有工作表合并到一个工作表中新建一个工作表，写入代码在新建的工作表标签处右键 查看代码（找不到的直接按一下alt+F11) 把下面 的代码复制进去 然后点上面的运行 运行子程序即可：Sub 合并当前工作簿下的所有工作表()Application.ScreenUpdating = FalseFor j = 1 To Sheets.Count If Sheets(j).Name ActiveSheet.Name Then X = Range(A65536).End(xlUp).Row + 1