怎么快速插入excel,插入,快速

1.excel中如何批量插入图片,并且对号入座

Sub 批量插入图片（）

Dim wj As String

Dim rng As Range

Sheets("sheet1").Select '选中要插入图片的工作表

x = [a65536].End(xlUp).Row '取得最后一行的行号

For i = 2 To x

na = Cells(i, 1) '从第一列（即A列）得到照片名，并以此名查找图片

wj = "e:\pic" &

"\" & na & ".jpg" '图片文件存储的路径与格式（.jpg）

If Dir(wj) <> "" Then

Cells(i, 2).Select '图片需要插入到第二列（即B列）

ActiveSheet.Pictures.Insert(wj).Select

Set rng = Cells(i, 5) '根据单元格的大小调整图片

With Selection

.Top =

rng.Top + 1

.Left =

rng.Left + 1

.Width =

rng.Width - 1

.Height =

rng.Height - 1

End With

End If

Next

MsgBox "图片插入完毕"

End Sub

附件加载失败，请点击刷新

2.Excel 怎样快速插入多张图片到EXCEL表格

用一个宏

Sub Macro1()

introw = 2

ActiveSheet.Pictures.Delete '删除表中图片

Range("A" + Trim(Str(introw))).Select

Do While ActiveCell.FormulaR1C1 <>； "" '判断当前单元格的值是否为空，空则结束

k = ActiveCell.FormulaR1C1

Range("G" + Trim(Str(introw))).Select

'ActiveWindow.SmallScroll Down:=0 关闭当时窗口

ActiveSheet.Pictures.Insert(ThisWorkbook.Path + "\" + k + ".jpg"). _

Select '插入图片，ThisWorkbook.Path表示图片与EXCEL文件同一文件夹

'On Error Resume Next '避免找不到同名图片出错，继续执行下一句命令

On Error GoTo ErrorHandler '避免找不到同名图片出错，跳到ErrorHandler执行

Selection.ShapeRange.Height = 113.25 '设定图片大小

Selection.ShapeRange.Width = 78#

Selection.ShapeRange.Rotation = 0#

line30: introw = introw + 1

Range("A" + Trim(Str(introw))).Select

Loop

If ActiveCell.FormulaR1C1 <> "" Then

ErrorHandler: ActiveCell.FormulaR1C1 = "无照片" '找不能同名的图片，则显示"无照片"

Resume Next '从错误中恢复，执行下一句

GoTo line30

End If

End Sub