返回列表 上一主題 發帖

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

stephenlee

帖子
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把黃色部份貼上,
但不能有隔行的,如圖片灰色部份,欄位是固定的,只不過資料的多與少每次都不同,要選擇該欄的所有資料再把他複製貼上這樣,謝謝大家。

收藏 分享

hcm19522

帖子
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)

5148.png

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

TOP

hcm19522

帖子
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/

TOP

stephenlee

帖子
63 
主題
32 
精華
0 
積分
125 
點名
0  
作業系統
WIn10 
軟體版本
OFFICE2013 
閱讀權限
20 
註冊時間
2018-7-19 
最後登錄
2022-8-11 
4#
發表於 2018-10-23 19:30 | 只看該作者
謝謝以上大大。
不知道有沒有VBA 的可以參考一下。謝謝

TOP

GBKEE

帖子
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
  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

        靜思自在 : 不怕事多，只怕多事。
返回列表 上一主題