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

¥¨¶°µ{¦¡¸ß°Ý

¦^´_ 1# cherryliao


   ½Ð¤W¶Ç½d¨ÒÀɮסA¤ñ¸û¦n²z¸Ñ

TOP

¦^´_ 5# cherryliao

¸Õ¸Õ§a¡I
  1. Public Sub ex()
  2.     For Each sh In Worksheets
  3.         With Sheets(sh.Name)
  4.             xx = .Cells(36, Columns.Count).End(xlToLeft).Column
  5.             ar = .Range("A36", .Cells(36, xx))
  6.             If ar <> "" Then .Range("A41").Resize(, UBound(ar, 2)) = ar
  7.         End With
  8.     Next
  9. End Sub
½Æ»s¥N½X

TOP

¦^´_ 7# yoyobuy

Resize °Ñ¼Æ¤£·|¦Û°Ê­pºâ¡H¡H
¸Ì­±ªº°Ñ¼Æµ¹¤©°ÊºAÅܼơA¤@¼Ë·|¦Û°Ê­pºâ¡IUbound()¤]¬O°ÊºAÅܼưڡIµ{¦¡»y¨¥³£¬O¦ºªº¡A¨ºÁÙ­n¬Ý§A¦p¦ó·d¬¡¥¦¡I

TOP

¦^´_ 9# yoyobuy


    §A­nªí¹F¤°»ò¡H

TOP

        ÀR«ä¦Û¦b : Ä@­n¤j¡B§Ó­n°í¡B®ð­n¬X¡B¤ß­n²Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD