Excel VBA 实用代码集锦：表合并、批量导入图片、批量删除图片

实用Excel VBA代码集 本代码集提供了多个实用的Excel VBA代码，涵盖了多表合并、批量导入图片、多工作簿合并、批量删除表内图片等多个方面的功能。下面是对每个代码的详细解释： 代码一：批量合并多个Excel文件 第一个代码使用了一个循环来遍历指定的单元格范围（A1:A130），然后根据每个单元格的值，打开相应的Excel文件，并将其第一张工作表的B2:B16范围内的数据复制到当前工作簿的相应位置。 Dim w As Workbook For Each i In Range("a1:a130") c = i.Address k = i.Value m = Dir(ThisWorkbook.Path & "\" & k & ".xls*") j = j + 1 Set w = GetObject(ThisWorkbook.Path & "\" & m) With w .Sheets(1).Range("b2:b16").Copy ThisWorkbook.Sheets(1).Range("b" & j).PasteSpecial 12, , , True .Close End With Next i 这个代码可以批量合并多个Excel文件，非常实用。 代码二：批量删除表内图片 第二个代码使用了两个循环，第一个循环遍历工作表中的所有形状，然后删除所有不是图片的形状。第二个循环遍历指定的单元格范围（A1:A130），然后根据每个单元格的值，插入相应的图片。 For Each Shap In Sheet1.Shapes If Shap.Type <> 8 Then Shap.Delete Next Shap For Each Rng In Range("a1:a130") On Error Resume Next i = ThisWorkbook.Path & "\" & Rng & "(1).jpg" Set rngs = Cells(Rng.Row, 2) Sheet1.Shapes.AddPicture i, True, True, rngs.Left, rngs.Top, rngs.Width, rngs.Height Selection.Placement = xlMoveAndSize Next Rng 这个代码可以批量删除表内的图片，然后批量插入图片。 代码三：图片对齐方式 最后一个代码展示了如何设置图片的对齐方式，可以是移动和调整大小、移动或自由浮动。 Selection.Placement = xlMoveAndSize Selection.Placement = xlMove Selection.Placement = xlFreeFloating 这个代码可以根据需要设置图片的对齐方式。 本代码集提供了多个实用的Excel VBA代码，涵盖了多表合并、批量导入图片、多工作簿合并、批量删除表内图片等多个方面的功能，对于Excel VBA开发者来说非常实用。