[發問] 選擇特定欄位資料問題。

stephenlee

想請教大家,我有個工作表有一連串連續資料,但我想把需要的資料,
如圖片所示黃色部份複製,資料不是每隔兩行的,圖片是作例子,同時再打開一個新的活頁簿新的一個EXCEL把黃色部份貼上,
但不能有隔行的,如圖片灰色部份,欄位是固定的,只不過資料的多與少每次都不同,要選擇該欄的所有資料再把他複製貼上這樣,謝謝大家。

下載 (80.3 KB)

2018-10-22 22:55

hcm19522

K2:K9=IFERROR(TEXT(N(OFFSET($A$1,ROW(A1)-1,SMALL(IF($K$2:$K$9>0,CODE($K$2:$K$9)-65),COLUMN(A1)))),"0;;"),"")

hcm19522

下載 (10.59 KB)

2018-10-23 10:10

K2:K9=IFERROR(TEXT(N(OFFSET($A$1,ROW(A1)-1,SMALL(IF($K$2:$K$9>0,CODE($K$2:$K$9)-65),COLUMN(A1)))),"0;;"),"")

stephenlee

謝謝以上大大。
不知道有沒有VBA 的可以參考一下。謝謝

GBKEE

回復 4# stephenlee

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim Ar(), Ar1(), Ar2(), i As Integer
   
4.     Ar = Application.Transpose(Range("A1:E10"))  '你要複製的資料
   
5.     Ar1 = Array(1, 3, 5)                         '你要的欄位
   
6.     ReDim Ar2(UBound(Ar1))
   
7.     For i = 0 To UBound(Ar1)
   
8.         Ar2(i) = Application.Index(Ar, Ar1(i))   '導入你要的欄位
   
9.     Next
   
10.     Ar = Application.Transpose(Ar2)
    
11.     [h1].Resize(UBound(Ar), UBound(Ar, 2)) = Ar   '你要貼上的地方
    
12. End Sub

複製代碼