Board logo

標題: [發問] 選擇特定欄位資料問題。 [打印本頁]
作者: stephenlee    時間: 2018-10-22 22:55     標題: 選擇特定欄位資料問題。

本帖最後由 stephenlee 於 2018-10-22 22:57 編輯

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

[attach]29579[/attach]
作者: hcm19522    時間: 2018-10-23 10:09

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    時間: 2018-10-23 10:10

本帖最後由 hcm19522 於 2018-10-23 10:11 編輯

[attach]29582[/attach][attach]29582[/attach][attach]29582[/attach]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    時間: 2018-10-23 19:30

謝謝以上大大。
不知道有沒有VBA 的可以參考一下。謝謝
作者: GBKEE    時間: 2018-10-23 19:51

回復 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
複製代碼




歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)