返回列表 上一主題 發帖

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

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

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

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

123.jpg
2018-10-22 22:55

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;;"),"")
5148.png
隨意窩 "EXCEL迷"  blog  或 http://blog.xuite.net/hcm19522/twblog
已收集6200篇 EXCEL函數

TOP

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

5148.png
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;;"),"")
隨意窩 "EXCEL迷"  blog  或 http://blog.xuite.net/hcm19522/twblog
已收集6200篇 EXCEL函數

TOP

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

TOP

回復 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
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

        靜思自在 : 屋寬不如心寬。
返回列表 上一主題