1、删除 B 列中字符串数值少于 21 的单元格所在的行Sub 删除行()r = Range(“B65536“).End(xlUp).Row 行数For h = r To 1 Step -1If Cells(h, 2) ActiveSheet.Name ThenX = Range(“A65536“).End(xlUp).Row + 1Sheets(j).UsedRange.Copy Cells(X, 1)End IfNextRange(“B1“).SelectApplication.ScreenUpdating = TrueMsgBox “当前工作簿下的全部工作表已经合并完毕！“, vbInfor
2、mation, “提示“End Sub*代码这样写也行：Sub c()For i = Sheets.Count To 2 Step -1Sheets(i).SelectSheets(i).UsedRange.CopySheets(1).SelectCells(Cells(65000, 1).End(xlUp).Row + 1, 1).SelectActiveSheet.PasteSheets(i).DeleteNext iEnd Sub*把一个工作簿中的所有表单合并成一个表单，怎么去掉重复的表头、标题行？方法如下：Sub c()For i = Sheets.Count To 2 Step -1
3、Sheets(i).UsedRange.Offset(1).Copy Sheets(1).Cells(65536, 1).End(xlUp).Offset(1)Next iEnd Sub说明：函数 OFFSET(reference,rows,cols,height,width)以指定的引用为参照系，通过给定偏移量得到新的引用。返回的引用可以为一个单元格或单元格区域。并可以指定返回的行数或列数。通俗的讲就是 OFFSET(参考单元格，移动的行数，移动的列数，所要引用的行数，所要引用的列数） 参考关于 offset 函数第三行中第一个 offset(1)是假设要要去掉的表头行数，如果有 2 行表头
4、，就改成 offset(2)，要去掉几行表头括号中的数字就改成几。第二个 offset(1)表示合并以后表格与表格之间要间隔的空行，offset(1)表示不留空行，offset(2)表示间隔 1 行空行，以此类推。也可以这样写：Sub c()For i = Sheets.Count To 2 Step -1Sheets(i).UsedRange.Offset(2).Copy Sheets(1).Cells(Cells(65536, 1).End(xlUp).Row + 1, 1).Offset(0) 这个 offset(0)可以不要Next iEnd Sub*或者用以下宏代码将同一工作簿中的所
5、有工作表合并到一个新建的工作表中按 ALT+F11 调出窗口，插入一个模块，然后把下面的代码复制进去。Sub hz()Set NewSheet = Sheets.Add(Type:=xlWorksheet) 生成一个新表Sheets(NewSheet.Index).Move Before:=Sheets(1) 将此新表移动到最前面For i = 2 To Worksheets.CountSheets(i).UsedRange.Copy NewSheet.Cells(a65536.End(xlUp).Row + 2, 1) 将其他表的已使用区域复制到新表中Next iMsgBox “合并完成“E
6、nd Sub这段代码很简单，其中第四行中用 FOR 循环得到当前工作簿中的所有工作表，第五行中使用 UsedRange得到每个工作表的“已使用区域” ，然后用 copy 方法把这些“已使用区域”中的内容复制到新建工作表中。语句 Cells(a65536.End(xlUp).Row + 2, 1)的作用是得到新建工作表的列中的最后空白单元格( 即要在哪个位置粘贴)，加 2 的作用是使每次复制数据间隔 2 行空格（此处应表示间隔 1 行空格，加 1 的话，表示合并的表格与表格之间不留空格） 。回到 EXCEL 窗口，执行“工具-宏- 宏”中的“hz ”宏就会自动合并工作表了。（经本人测试，不能使用
7、右键点击标签查看代码再粘入代码的方式，应该运用菜单栏插入模块的方式）-【工作簿合并】将需要合并的工作簿文件放置在一个文件夹中，并新建一个工作簿，写入代码：Sub 合并工作薄()Dim FilesToOpenDim x As IntegerOn Error GoTo ErrHandlerApplication.ScreenUpdating = FalseFilesToOpen = Application.GetOpenFilename _(FileFilter:=“MicroSoft Excel 文件(*.xls), *.xls“, _MultiSelect:=True, Title:=“要合并
8、的文件“)If TypeName(FilesToOpen) = “Boolean“ ThenMsgBox “没有选中文件“GoTo ExitHandlerEnd Ifx = 1While x “ If MyName AWbName Then Set Wb = Workbooks.Open(MyPath & “ & MyName) Num = Num + 1 With Workbooks(1).ActiveSheet .Cells(.Range(“A65536“).End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4) For G = 1 To
9、 Sheets.Count Wb.Sheets(G).UsedRange.Copy .Cells(.Range(“A65536“).End(xlUp).Row + 1, 1) Next WbN = WbN & Chr(13) & Wb.Name Wb.Close False End With End If MyName = Dir Loop Range(“A1“).Select Application.ScreenUpdating = True MsgBox “共合并了 “ & Num & “个工作薄下的全部工作表。如下：“ & Chr(13) & WbN, vbInformation, “提
10、示“ -奇偶页分别打印Sub 奇偶页分别打印() Dim i%, Ps% Ps = ExecuteExcel4Macro(“GET.DOCUMENT(50)”) 总页数 MsgBox “现在打印奇数页 ,按确定开始.” For i = 1 To Ps Step 2 ActiveSheet.PrintOut from:=i, To:=i Next i MsgBox “现在打印偶数页 ,按确定开始.” For i = 2 To Ps Step 2 ActiveSheet.PrintOut from:=i, To:=i Next i End Sub-将 A 列最后数据行以上的所有 B 列图片大小调整
11、为所在单元大小 Sub 将 A 列最后数据行以上的所有 B 列图片大小调整为所在单元大小() Dim Pic As Picture, i& i = A65536.End(xlUp).Row For Each Pic In Sheet1.Pictures If Not Application.Intersect(Pic.TopLeftCell, Range(“B1:B” & i) Is Nothing Then Pic.Top = Pic.TopLeftCell.Top Pic.Left = Pic.TopLeftCell.Left Pic.Height = Pic.TopLeftCell.He
12、ight Pic.Width = Pic.TopLeftCell.Width End If Next End Sub 如何在原有行高的基础上增加一个固定值 Private Sub CommandButton1_Click()Dim i, HangGaoRows(“1:100“).EntireRow.AutoFitHangGao = InputBox(“已设定自适应行高，设定想增加的行高“, “ 增加行高“)Application.ScreenUpdating = FalseFor i = 1 To 100Rows(i).RowHeight = Rows(i).RowHeight + CVar(
13、HangGao)Next iApplication.ScreenUpdating = TrueEnd Sub代码的意思是：选中前 100 行，然后自动根据内容调整到合适的行高，就跟你选中以后双击黑线是一样的效果。然后在弹出的对话框中输入你想要每行增加行高的数值，比如说输入 23，每个行高就加 23.-其他解释：Range 是区域，范围的意思range(“A1“)对一个单元格集合进行范围筛选(只选中最左上角的 1 个单元格) ，比如 sheet1.range(“A1:C3“).select 将选中 sheet1 的左上角的 9 个单元格选中。1、Range 属性Range(arg)（其中 arg
14、 为区域名称）来返回代表单个单元格或单元格区域的 Range 对象 2、Cells 属性可用 Cells(row,column） （其中 row 为行号，column 为列标）返回单个单元格3、Range 和 Cells可用 Range(cell1,cell2） 返回一个 Range 对象，其中 cell1 和 cell2 为指定起始和终止位置的 Range 对象。下例设置单元格区域 A1:J10 的边框线条的样式。With Worksheets.Range(.Cells（1,1） ，.Cells（10,10） ）.Borders.LineStyle = xlThickEnd With注意每个
15、 Cells 属性之前的句点。如果前导的 With 语句应用于该 Cells 属性，那么这些句点就是必需的。本示例中，句点指示单元格处于第一张工作表上。如果没有句点，Cells 属性将返回活动工作表上的单元格。4、Offset 属性可用 Offset(row,column） （其中 row 和 column 为行偏移量和列偏移量）返回相对于另一区域在指定偏移量处的区域。下例选定位于当前选定区域左上角单元格的向下三行且向右一列处的单元格。由于必须选定位于活动工作表上的单元格，因此必须先激活工作表。5、Union 方法可用 Union(range1,range2,.) 返回多块区域，即该区域由两个或多个连续的单元格区域所组成。下例创建由单元格区域 A1:B2 和 C3:D4 组合定义的对象，然后选定该定义区域。6、在 VBA 操作工作簿工作表时,会有很多刷新屏幕的动作,以致代码执行速度受到影响,Application.ScreenUpdating = False 可以屏蔽屏幕刷新,进而提高运行速度，不过别忘了,在程序结尾添加恢复代码,即:Application.ScreenUpdating = TRUESheets(j).Name-表（J）名称 ActiveSheet.Name-活动表的名称）
