'Sheet1中先在第3列加入一个空列，格式参照右侧，参照左侧用xlFormatFromLeftOrAbove
Sheet1.Columns(3).Insert , CopyOrigin:=xlFormatFromRightOrBelow
'将Sheet2中的第3列复制到Sheet1中第3列
Sheet2.Columns(3).Copy Destination:=Sheet1.Columns(3)
'如果要进行行的复制，将Columns变为Rows
'如果要多列复制，可以参考下面的代码
Sheet1.Columns("C:D").Insert , CopyOrigin:=xlFormatFromRightOrBelow
Sheet2.Columns("C:D").Copy Destination:=Sheet1.Columns("C:D")

以前用 Excel 2003做了些宏，在网上还有不少粉丝，因一些功能在 Excel 2010中无法使用，故重新整理，欢迎指正； 本 Excel 中的宏在 Excel 2010中测试表现出色; 运 行 宏前，要保证 EXCEL 没有禁用宏。 Michael Ho QQ: 9900060 ----------------------- 本 Excel 有以下功能： 插入图片1 1.点击执 行 后，会出现文件夹选择窗，请选择你JPG图片所在文件夹(选择“文件夹”而不是选择文件)； 2.宏会自动 复制 Sheet 2到新工作簿，并插入你所选文件夹中的全部JPG图片到B 列 ，对应的图片名自动填到C 列 ； 3.图片的大小会自动适应 Sheet 2的B3单元格，因此可以在点击执 行 前调整 Sheet 2的B3单元格的大小来控制插入图片的大小。 -------- 插入图片2 1.点击执 行 后，会出现文件夹选择窗，请选择你JPG图片所在文件夹(选择“文件夹”而不是选择文件)； 2.宏会自动 复制 Sheet 3到新工作簿，并插入你所选文件夹中的全部JPG图片制作图册，对应的图片名自动填到图片下方； -------- 插入图片3 如果用户自己的 Excel 文件中有一 列 是型号，该宏可以插入指定文件夹里以型号命名的JPG图片到另一 列 ； 1.打开本 Excel 文件，不要关闭； 2.再另外打开你自己需要操作的另一个 Excel 文件，并保持你要操作的工作表做为当前活动工作表； 3.在你的文件中按Ctrl+I (或在你的文件中手动执 行 宏，然后选择本 EXCEL 文件中的宏InsertPic3）； 4.然后会出现文件夹选择窗，请选择你JPG图片所在文件夹(选择“文件夹”而不是选择文件)； 5.在弹出的对话框中指定型号在第几 列 ，图片要插入到第几 列 ，以及从哪一 行 开始； 6.图片的大小会自动适应你设定的第一 行 要插入图片的单元格，因此提前调整那个单元格的大小可以控制插入图片的大小。 ------------- 删除活动工作表中所有图片 Ctrl+d 删除活动工作表里所有的JPG图片，（不一定是本工作簿中的工作表）； 1.打开本 Excel 文件，不要关闭； 2.再另外打开你自己需要操作的另一个 Excel 文件，并保持你要操作的工作表做为当前活动工作表； 3.在你的文件中按Ctrl+d (或在你的文件中手动执 行 宏，然后选择本 EXCEL 文件中的宏DelPic）； ------------- 导出活动工作表中被选中的一张JPG图片 Ctrl+e 导出活动工作表中被选中的一张JPG图片，（不一定是本工作簿中的工作表）； 1.打开本 Excel 文件，不要关闭； 2.再另外打开你自己需要操作的另一个 Excel 文件，并保持你要操作的工作表做为当前活动工作表； 3.请选中一张要导出的图片； 4.在你的文件中按Ctrl+e (或在你的文件中手动执 行 宏，然后选择本 EXCEL 文件中的宏OutputOnePic）； 5.在弹出的对话框中指定图片要保存的名字； 1.不管图片在 Excel 中是否被缩放过，导出的图片是按图片的原始尺寸进 行 保存。 2.在桌面上会自动新建一个"OutputPic"的文件夹，导出的图片将会存在那个文夹里； 3.如果文件夹中已有相同名字的文件，则后面导出的文件会自动加上(v1), (v2), (v3)... ------------- 导出活动工作表中所有JPG图片 Ctrl+f 导出活动工作表中所有JPG图片，并且图片名自动使用指定 列 中的图片名； 1.打开本 Excel 文件，不要关闭； 2.再另外打开你自己需要操作的另一个 Excel 文件，并保持你要操作的工作表做为当前活动工作表； 3.在你的文件中按Ctrl+f (或在你的文件中手动执 行 宏，然后选择本 EXCEL 文件中的宏OutputAllPic）； 4.在弹出的对话框中指定图片所在 列 ，图片名所在的 列 ； 1.不管图片在 Excel 中是否被缩放过，导出的图片是按图片的原始尺寸进 行 保存； 2.在桌面上会自动新建一个"OutputPic"的文件夹，所有导出的图片将会存在那个文夹里； 3.如果文件夹中已有相同名字的文件，则后面导出的文件会自动加上(v1), (v2), (v3)... ---------------- 对指定文件夹中的JPG图片进 行 重命名 Ctrl+r 利用活动工作表中的所有图片的旧名与新名的对照，对指定文件夹中JPG图片进 行 重命名； 1.打开本 Excel 文件，不要关闭； 2.再另外打开你自己需要操作的另一个 Excel 文件，并保持你要操作的工作表做为当前活动工作表； 3.在你的文件中按Ctrl+r (或在你的文件中手动执 行 宏，然后选择本 EXCEL 文件中的宏RenamePic）； 4.在弹出的对话框中指定图片旧名所在 列 和图片新名所在的 列 ； 1.可以结合插入图片的宏，将所有图片的旧名输入到 Excel 中，再在另一 列 中填上新图片名，然后使用该宏。 2.如果顺利运 行 ，会在原来那个文件夹下面新建一个叫“New”的子文件夹，所有重命好名的图片会自动放入子文件夹里； 3.如果文件夹中已有相同名字的文件，则后面的文件会覆盖原来的文件。

使用方法： 1、将需要拆分的 EXCEL 文件放在一个单独的文件夹，打开这个 EXCEL 文件，并关闭其他打开的 EXCEL 文件； 2、 excel 表格保留一 行 标题 行 ，并把第一 列 数据填写为拆分项（文件拆分时将按第一 列 的内容进 行 归类合并为一个文件），整个表格不要合并单元格； 3、在打开的 EXCEL 工作表名称上点右键选择查看代码； 4、选择菜单栏：插入-模块，将以下代码 复制 到右边的代码框中，点击菜单：运 行 -运 行 子过程/用户窗体,直到弹出处理完毕对话框； 5、在文件夹中将生成拆分好的文件，可关闭这个 EXCEL 文件，选择不保存。

好的，下面是一个基本的 VBA 代码示例，用于实现在 ComboBox 中选择选项后，自动跳转到指定的工作表。在这个示例中，我们假设 ComboBox 中的选项与工作表的名称一致。 首先，在 Excel 中插入一个 ComboBox 控件。您可以在“开发工具”选项卡的“插入”部分找到该控件。然后，将以下代码 复制 到工作表的代码模块中： ``` VBA Private Sub ComboBox1_Change() Dim Selected Sheet Name As String Selected Sheet Name = ComboBox1.Value ' 判断所选工作表是否存在 If Sheet Exists(Selected Sheet Name) Then ' 跳转到所选工作表 Work sheet s(Selected Sheet Name).Activate MsgBox "工作表 " & Selected Sheet Name & " 不存在！" End If End Sub ' 判断指定名称的工作表是否存在 Function Sheet Exists( Sheet Name As String) As Boolean Sheet Exists = False For Each Sheet In ThisWorkbook. Sheet s If Sheet .Name = Sheet Name Then Sheet Exists = True Exit Function End If Next Sheet End Function 这个示例代码中，我们使用 ComboBox 的 Change 事件来处理选项的选择。在该事件中，我们首先获取所选选项的名称，然后使用 Sheet Exists 函数来判断该名称的工作表是否存在。如果存在，则使用 Work sheet s(Selected Sheet Name).Activate 语句来跳转到该工作表；否则，显示一个消息框来提示用户。 请注意，我们还需要定义一个 Sheet Exists 函数来判断指定名称的工作表是否存在。在这个函数中，我们使用 For Each 循环遍历所有工作表，判断工作表名称是否与指定名称相同。如果找到相同名称的工作表，则返回 True；否则，返回 False。