麻辣家族討論版版 » Excel程式區 » 選擇特定欄位資料問題。

返回列表下一主題上一主題發帖

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

中學生 Rank: 2

帖子: 63
主題: 32
精華: 0
積分: 125
點名: 0
作業系統: WIn10
軟體版本: OFFICE2013
閱讀權限: 20
註冊時間: 2018-7-19
最後登錄: 2022-8-11

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2018-10-22 22:55 | 只看該作者

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

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

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

樓主熱帖

收藏

大學生 Rank: 4

帖子: 1387
主題: 4
精華: 0
積分: 1397
點名: 0
作業系統: WIN
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2015-9-11
最後登錄: 2024-11-22

熱烈參與勳章

2^#

發表於 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;;"),"")

5148.png (10.59 KB)

google"EXCEL迷" blog 或google網址:https://hcm19522.blogspot.com/

大學生 Rank: 4

帖子: 1387
主題: 4
精華: 0
積分: 1397
點名: 0
作業系統: WIN
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2015-9-11
最後登錄: 2024-11-22

熱烈參與勳章

3^#

發表於 2018-10-23 10:10 | 只看該作者

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

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;;"),"")

google"EXCEL迷" blog 或google網址:https://hcm19522.blogspot.com/

中學生 Rank: 2

帖子: 63
主題: 32
精華: 0
積分: 125
點名: 0
作業系統: WIn10
軟體版本: OFFICE2013
閱讀權限: 20
註冊時間: 2018-7-19
最後登錄: 2022-8-11

4^#

發表於 2018-10-23 19:30 | 只看該作者

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

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

5^#

發表於 2018-10-23 19:51 | 只看該作者

回復 4# stephenlee

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

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

靜思自在 : 【蒙蔽的自由】人常在什麼都可以自由自在的時候，卻被這種隨心所欲的自由蒙蔽，虛擲時光而毫無覺知。

返回列表下一主題上一主題