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

[µo°Ý] ½Æ»s¦h¦CÀx¦s®æ

[µo°Ý] ½Æ»s¦h¦CÀx¦s®æ

½Ð°Ý¦U¦ì¤j¤j­Ì¡G
¦p¦ó³]©w·í«ö¤U«ö¶s®É¡A
¨ú¤u§@ªí1¡A²Ä¤T¦C¬õ©³¦âªº­È¡A¨Ã¥B±N¤W­±¤G¦Cªº¤º®e¤@¨Ö½Æ»s¡A
µ²ªGµe­±¦b¤u§@ªí2
a1¡G2­Ó°Ï¶ô
a2¡G10­Ó¹s¥ó

123.rar (30.62 KB)

Ä_Ä_

¦^´_ 1# caichen3
  1. Sub ex()
  2. Dim Ar(), i%, s%
  3. Dim A As Range
  4. For Each A In Range([E3], [E3].End(xlToRight))
  5.    If A.Interior.ColorIndex = 3 Then
  6.           ReDim Preserve Ar(3, i)
  7.           For s = 2 To 0 Step -1
  8.           Ar(2 - s, i) = A.Offset(-s).MergeArea(1).Value
  9.           Next
  10.           i = i + 1
  11.     End If
  12. Next
  13. If i > 0 Then Sheets(2).[A1].Resize(i, 3) = Application.Transpose(Ar)
  14. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 2# Hsieh


    ·PÁÂH¤j¤jªºÀ°¦£³á:)
Ä_Ä_

TOP

        ÀR«ä¦Û¦b : ÀR§¤±`®¦¤v¹L¡B¶¢½Í²ö½×¤H«D¡C
ªð¦^¦Cªí ¤W¤@¥DÃD