随笔分类 -  Excel VBA

摘要：Sub Test()On Error Resume Next Dim Rng As Range Dim Cell As Range Dim Pic As Picture Application.ScreenUpdating = False Set Rng = Range("C1:C" & Range("c" & Rows.Count).End(xlUp).Row) For Each Cell In Rng With Cell Set Pic = .Parent.Pictures.Insert(.Value) ... 阅读全文