GBKEE

¦^´_ 1# Genie
¸Õ¸Õ¬Ý

1. Sub DelPic()
   
2.     Dim R As Range, x As Picture, D As Object
   
3.     Set D = CreateObject("scripting.dictionary") '¦r¨åª«¥ó
   
4.     With ActiveSheet
   
5.         For Each R In .Range("b3:b" & .[b3].End(xlDown).Row)
   
6.             D(R.Value) = R.Offset(, 1).Value     '¦r¨åª«¥ó:key ªºitem
   
7.         Next
   
8.         For Each x In .Pictures
   
9.             If D(x.TopLeftCell.Offset(-1).Text) = "" Then x.Delete
   
10.         Next
    
11.     End With
    
12. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 3# Genie
TopLeftCell: ¹Ï¶K¤W³Ì³»ºÝ¤Î³Ì¥ªºÝªºCell (储¦s®æ)->¤W¤@¦C:Offset(-1).Text,¬O³o¹Ïªºitem¦r¦ê
1. ¦³¤@¥y¬Ý¤£¤ÓÀ´¡@"If D(x.TopLeftCell.Offset(-1).Text) = "" Then x.Delete"
    ³o¬O«ü¹Ï¤W¤èªº item ¹ïÀ³¨ìªí®æªº weekly ¬°ªÅ®æªº·N«ä¶Ü¡H ¹ïªº

2.§Ú­Y±N weekly §ï¨ì D Äæ¡@item ¤´¦b B Äæ   
   µ{¦¡½X§ï¬° For Each R In .Range("B3:B" & .[B3].End(xlDown).Row)
            ¡@¡@¡@¡@¡@        D(R.Value) = R.Offset(, 2).Value

GBKEE

¦^´_ 6# Genie
½Ð¦Aªþ¤WÀɮ׬ݬÝ

GBKEE

¦^´_ 8# Genie
½Ð¬d¬ÝVBA»¡©ú End ÄÝ©Ê   ¶Ç¦^ Rangeª«¥ó¡A¸Óª«¥ó¥Nªí¥]§t¨Ó·½½d³ò¤§°Ï°ìµ²§À³BªºÀx¦s®æ¡Cµ¥©ó«ö END+¦V¤WÁä¡BEND+¦V¤UÁä¡BEND+¦V¥ªÁä©Î END+¦V¥kÁä¡C°ßŪ Range ª«¥ó¡C


¬°¤°»ò¡@"For Each R In .Range("b3:b" & .[b3].End(xlDown).Row)"¡@­n B3:B ©O¡H
.[b3].End(xlDown).Row :¶Ç¦^¥Ñ [b3]©¹¤U¨ì³Ì«á¤@­Ó¸ê®Æªº¦C¸¹  ->§AªºÀɮ׶Ǧ^ 7
Range("³o¬O¦r¦ê")-> "b3:b" & 7-> "b3:b7"

§A§ï¬°.Range("b3:b7" & .[b3].End(xlDown).Row) ->"b3:b7" & 7-> "b3:b77" : ÂX¤j¤F½d³ò
BÄ椤B12="A-1",B33="B-1",B53="B-2" ªºDÄæ³£¬OªÅ¥Õ
**D(R.Value) = R.Offset(, 2).Value ¨Ï±oD(KEY)=ªÅ¥Õ