ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¨Ì¿é¤Jªº¤é´Á½d³ò¡A©ó«ü©wªº¤u§@ªíÄæ¦ì¨q¥X¸Ó½d³ò¤ºªº¤é´Á???

[µo°Ý] ¨Ì¿é¤Jªº¤é´Á½d³ò¡A©ó«ü©wªº¤u§@ªíÄæ¦ì¨q¥X¸Ó½d³ò¤ºªº¤é´Á???

Sheet1¿é¤J°_©l¤é¤Î¤Ñ¼Æ¡A¥i¦Û°Ê©óSheet2 L1Äæ¦ì°_¨q¥X¨ä¨C¤é¤é´Á¡A½Ð°Ý¦p¦ó¥H¥¨¶°¥i¹F¦¨¡A½Ð¦U¦í¥ý¶i«ü±Ð¡AÁÂÁÂ^^


¤é´Á½d³ò¥¨¶°®M¨ú.rar (4.61 KB)

¥»©«³Ì«á¥Ñ GBKEE ©ó 2012-10-23 13:37 ½s¿è

¦^´_ 1# p6703
  1. ub Ex()
  2.     Dim xi As Integer
  3.     With Sheet2.Range("L1")
  4.         Sheet2.Range(.Cells(1), .Cells(1).End(xlToRight)) = ""
  5.         '°j°é
  6.         For xi = 0 To Sheet1.[B3]
  7.             .Offset(, xi) = Sheet1.[B2] + xi
  8.         Next
  9.         
  10.         '¤½¦¡
  11.      '  .Resize(, Sheet1.[B3] + 1) = "= Sheet1!$B$2+" & "Column() -" & .Column
  12.      '  .Resize(, Sheet1.[B3] + 1) = .Resize(, Sheet1.[B3] + 1).Value
  13.         
  14.     End With
  15. End Sub
½Æ»s¥N½X

TOP

·PÁÂGBKEE ª©¥D¡A¤SÅý¤p§Ì¾Ç¤F¤@©Û¡AÁÂÁÂ^^

TOP

        ÀR«ä¦Û¦b : ¤£­nÀH¤ß©Ò±ý¡A­nÀH¤ß±Ð¨|¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD