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

½Ð°Ý¤j¤j¡A¦³¨S¦³¤º«Øªº¨ç¼Æ¥i±NÄæ¦C¤¬´«¡AÁÂÁÂ

½Ð°Ý¤j¤j¡A¦³¨S¦³¤º«Øªº¨ç¼Æ¥i±NÄæ¦C¤¬´«¡AÁÂÁÂ

½Ð°Ý¤j¤j¡A¦³¨S¦³¤º«Øªº¨ç¼Æ¥i±NÄæ¦C¤¬´«¡AÁÂÁÂ
¦Cªºªø«×¥i¥Î ¤u§@ªí1.Range("A1").End(xlDown).Row
½Ð°Ý Ä檺ªø«×¥Î¨º¤@­Ó vba ÁÂÁÂ

test.rar (13.99 KB)

test.rar (13.99 KB)

¦^´_ 1# wufonna
  1. ¤u§@ªí1.Range("A1").End(xlToRight).Column
½Æ»s¥N½X
  1. Sub test()
  2.   Dim ar
  3.   
  4.   With ActiveSheet.[A1].CurrentRegion
  5.     ar = Application.Transpose(.Value)
  6.     .ClearContents
  7.     .Cells(1, 1).Resize(UBound(ar), UBound(ar, 2)).Value = ar
  8.   End With
  9. End Sub
½Æ»s¥N½X

TOP

ÁÂÁÂ stillfish00  ¤j¤j
µ{¦¡¤¬´««Ü¤è«K¡A§Úvba ¤£¤Ó·|¦A¬ã¨s¬Ý¬Ý^0^
ÁÂÁÂ

TOP

        ÀR«ä¦Û¦b : ¡i°µ¤Hªº¶}©l¡j¨C¤@¤Ñ³£¬O¬G¤Hªº¶}©l¡A¨C¤@­Ó®É¨è³£¬O¦Û¤vªºÄµ±§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD