jackyq

¦³µLª½±µªº«ü¥O?  ¤£¾å±o­C

¥Î´¡¤J«á¦A§â¹Ï§R°£ªº¤èªk

Sub kill_Image(R_«ü©w½d³ò As Range)

R_x1 = R_«ü©w½d³ò.Left
R_x2 = R_«ü©w½d³ò.Left + R_«ü©w½d³ò.Width
R_y1 = R_«ü©w½d³ò.Top
R_y2 = R_«ü©w½d³ò.Top + R_«ü©w½d³ò.Height

For Each p In R_«ü©w½d³ò.Parent.Pictures
    x1 = p.Left
    x2 = p.Left + p.Width
    y1 = p.Top
    y2 = p.Top + p.Height
   
    xx = x1 >= R_x1 And x1 <= R_x2 Or x2 >= R_x1 And x2 <= R_x2
    yy = y1 >= R_y1 And y1 <= R_y2 Or y2 >= R_y1 And x2 <= R_y2
  
    If xx And yy Then
       p.Delete
    End If
Next
End Sub

jackyq

¦^´_ 4# jackson7015

¦]¬°  Excel  2000 ¨Sªk¥Î #3¼Óªº¤èªk

jackyq

¦^´_ 4# jackson7015

¤j¤j³o¼Ë¸Õ¸Õ¬Ý§a

........
    With Rows("48:48").Resize(, Rng.Rows.Count)    'columns/rows
        .PasteSpecial Paste:=xlPasteValuesAndNumberFormats
    End With
Rows("48:48").PasteSpecial Paste:= 7
Rows("48:48").PasteSpecial Paste:= 13
Rows("48:48").PasteSpecial Paste:= .....  ' ³v¦¸²K¥[¯Ê¤Öªº
Rows("48:48").PasteSpecial Paste:= .....  ' ³v¦¸²K¥[¯Ê¤Öªº

°Ñ¼Æ¦Û¤v try
https://msdn.microsoft.com/en-us/library/bb241405%28v=office.12%29.aspx

jackyq

¦^´_ 7# jackson7015

§Úª¾¹D§A¥Î insert ¬O¬°¤F¤è«K¤£¥Î­pºâ°Ï¶ô¤j¤p
¦ý insert ¦n¹³¨S¦³°Ñ¼ÆÅý§A¿ï¾Ü±Æ°£­þ¨Ç

    Sub ·s¼W¼Æ¶q()

    ´¡¤J¦¸¼Æ = 5
   
    Set R_Copy = Rows("1:47")
    Set R_Insert = Rows("48:48")
        
    For w = 1 To ´¡¤J¦¸¼Æ
    R_Copy.Select
    R_Copy.Copy
    R_Insert.Insert Shift:=xlDown
    Next
   
    Set R_Insert = R_Insert.Offset(-R_Copy.Rows.Count * ´¡¤J¦¸¼Æ)
    Set R_Insert = R_Insert.Resize(R_Copy.Rows.Count * ´¡¤J¦¸¼Æ)
    Call kill_Image(R_Insert)
End Sub


Sub kill_Image(ByVal R_«ü©w½d³ò As Range)


R_x1 = R_«ü©w½d³ò.Left
R_x2 = R_«ü©w½d³ò.Left + R_«ü©w½d³ò.Width
R_y1 = R_«ü©w½d³ò.Top
R_y2 = R_«ü©w½d³ò.Top + R_«ü©w½d³ò.Height

For Each p In R_«ü©w½d³ò.Parent.Pictures
    x1 = p.Left
    x2 = p.Left + p.Width
    y1 = p.Top
    y2 = p.Top + p.Height
   
    xx = x1 >= R_x1 And x1 <= R_x2 Or x2 >= R_x1 And x2 <= R_x2
    yy = y1 >= R_y1 And y1 <= R_y2 Or y2 >= R_y1 And y2 <= R_y2
  
    If xx And yy Then
       p.Delete
    End If
Next
End Sub

jackyq

¤èªk2

Sub ·s¼W¼Æ¶q_2()
    ´¡¤J¦¸¼Æ = 5
        
    Set R_Copy = Rows("1:47")
    Set R_Insert = Rows("48:48")
   
    Application.CutCopyMode = False
    R_Insert.Resize(´¡¤J¦¸¼Æ * R_Copy.Rows.Count).Insert
    R_Copy.Select
    R_Copy.Copy
    Set R_Insert = R_Insert.Offset(-R_Copy.Rows.Count * ´¡¤J¦¸¼Æ)
    For w = 1 To ´¡¤J¦¸¼Æ
        R_Insert.PasteSpecial
        Set R_Insert = R_Insert.Offset(R_Copy.Rows.Count)
    Next
End Sub

jackyq

¤èªk2
°²³] §Aªº¸ê®Æ¦C¦b 1 ~ 77 ³£¦³¸ê®Æ
¦pªG§A¦b 48 ¦C¥Î  Paste  ¶K¤J 30¦C
¨º»ò­ì¥ýªº 48 ~ 77 ¦C¸ê®Æ³£·|³QÂл\±¼

©Ò¥H
¥ý¥Î "´¡¤JªÅ¥Õ¦C" §â 48 ~ 77 ¦Cªº¸ê®Æ©¹«á²¾°Ê ( ´¡¤JµLªk¿ï¾Ü¤£¶K¹Ï, ©Ò¥H³o¸Ì¥u´¡¤JªÅ¥Õ¦C )
¦A¥Î PasteSpecial  §â¸ê®Æ½Æ»s¨ì ­è­è´¡¤JªºªÅ¥Õ¦C  ( PasteSpecial  ¥i¥H¿ï¾Ü¤£¶K¹Ï )

³o¼Ëµ²¦X´NÁ׶}¤F  insert ·|¶K¤J¹Ï¤ù, PasteSpecial  ·|Âл\±¼Â¦³ªº¸ê®Æ°Ï