[µo°Ý] ½Æ»s«áµLªk·Ó­ì®æ¦¡¶K¤W???¦C°ªÄæ¼e¨Ã¨S¦³³QÂлs???

t8899

³o¬O¿ý»s¤§¥¨¶°¡A°õ¦æ«á¨C­ÓÀx¦s®æªº¦C°ªÄæ¼e¨Ã¨S¦³³QÂлs???
    Sheets("Sheet8").Select
    Range("A1:D17").Select
    Selection.Copy
    Sheets("Sheet2").Select
    Range("A1").Select
    ActiveSheet.Paste
    Range("G6").Select
Book2.rar (9.34 KB)

¤U¸ü¦¸¼Æ: 2

2017-6-29 21:21

t8899

§ä¨ì luhpro ¤§«epoªº©«¡A¦ý¥Øªº¦a¸ò¨Ó·½¤£¦b¦P¤@±i¤u§@ªí·|µL®Ä,¤£ª¾¦p¦ó§ï??

Sub nn()
  Dim lJ&, lSrc&, lTrc&, lrcs&
  Dim rSou As Range, rTar As Range
  
  Set rSou = Sheets("Sheet6").[A1:g33]' ¨Ó·½
  Set rTar =Sheets("Sheet8").[a10] ' ¥Øªº
  
  rSou.Copy rTar ' «þ¨©
  
'===== ³vÄæ½Æ»sÄæ¼e===
  lSrc = rSou(1).Column
  lTrc = rTar(1).Column
  lrcs = rSou.Columns.Count - 1
  For lJ = 0 To lrcs
    Columns(lTrc + lJ).ColumnWidth = Columns(lSrc + lJ).ColumnWidth
  Next
  
'===== ³v¦C½Æ»s¦C°ª===
  lSrc = rSou(1).Row
  lTrc = rTar(1).Row
  lrcs = rSou.Rows.Count - 1
  For lJ = 0 To lrcs
    Rows(lTrc + lJ).RowHeight = Rows(lSrc + lJ).RowHeight
  Next
End Sub

ML089

¦^´_ 1# t8899

¥i¥H¥Î¥¨¶°¿ý»s

Sub ex()
    Dim rSou As Range, rTar As Range
    Set rSou = Sheets("Sheet8").Range("A1:D17")
    Set rTar = Sheets("sheet2").Range("G6")
    rSou.Copy rTar
    With rTar
        rSou.Copy
        .PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
                      SkipBlanks:=False, Transpose:=False
        .PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
                      SkipBlanks:=False, Transpose:=False
    End With
End Sub

t8899

¦^´_  t8899

¥i¥H¥Î¥¨¶°¿ý»s

Sub ex()
    Dim rSou As Range, rTar As Range
    Set rSou = She ...
ML089 µoªí©ó 2017-6-30 10:52

¥i¥H¤FÁÂÁÂ
¥»¨Ó·Q¥Î [a16].RowHeight = [a1].RowHeight ¤@­Ó­Ó¸Ñ¨M
¦³³o­Ó»yªk  ===>  xlPasteColumnWidths
¦ý½T¨S¦³³o­Ó»yªk ==> xlPasteRowHeight
xlPasteFormats §t xlPasteRowHeight ??

t8899

¦^´_  t8899

¥i¥H¥Î¥¨¶°¿ý»s

Sub ex()
    Dim rSou As Range, rTar As Range
    Set rSou = She ...
ML089 µoªí©ó 2017-6-30 10:52

§Ú¤S¸Ô²Ó´ú¤F¤@¤U  ,¦C°ª¦³¨Ç¤´¨S¿ìªk«þ ?? Book4.rar (11.79 KB)

¤U¸ü¦¸¼Æ: 1

2017-6-30 12:33

ML089

¦^´_ 5# t8899

Àx¦s®æ°ª«×¨S¦³½Æ»s¿ï¶µ¡A¥u¦n¦Û¤v°µ

Sub ex1()
    Dim rSou As Range, rTar As Range
    Set rSou = Sheets("Sheet4").Range("A1:d33")
    Set rTar = Sheets("sheet1").Range("a1")
    rSou.Copy rTar
    With rTar
        rSou.Copy
        .PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
                      SkipBlanks:=False, Transpose:=False
        .PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
                      SkipBlanks:=False, Transpose:=False
    End With

    For j = 1 To rSou.Rows.Count: rTar(j, 1).RowHeight = rSou(j, 1).RowHeight: Next

End Sub