麻辣家族討論版版 » Excelㄧ般區 » 資料相隔列數不一樣的資料整理

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

[發問] 資料相隔列數不一樣的資料整理

中學生 Rank: 2

帖子: 216
主題: 71
精華: 0
積分: 292
點名: 0
作業系統: window xp
軟體版本: 2007
閱讀權限: 20
性別: 女
註冊時間: 2012-6-27
最後登錄: 2024-9-28

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2014-3-11 07:38 | 只看該作者

[發問] 資料相隔列數不一樣的資料整理

各位早
本人有一自系統輸出的EXCEL檔, 每一位員工均有不同列數的資料, 故此不知怎樣取得資料. 請問用甚麼函可以整理資料如附件.

course.rar (6.49 KB)

有勞.

樓主熱帖

收藏

中學生 Rank: 2

帖子: 216
主題: 71
精華: 0
積分: 292
點名: 0
作業系統: window xp
軟體版本: 2007
閱讀權限: 20
性別: 女
註冊時間: 2012-6-27
最後登錄: 2024-9-28

18^#

發表於 2014-3-14 21:13 | 只看該作者

回復 17# is681003

多謝賜教.

小學生 Rank: 1

帖子: 9
主題: 0
精華: 0
積分: 9
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 10
性別: 女
註冊時間: 2014-3-6
最後登錄: 2014-3-13

17^#

發表於 2014-3-13 23:33 | 只看該作者

本帖最後由 Hsieh 於 2014-3-14 23:40 編輯

其中一些方式

J3陣列公式
=IFERROR(LOOKUP(2,1/(OFFSET($A$1,MATCH($I3,$B:$B,0),,MATCH(1,1/(OFFSET($A$1,MATCH($I3,$B:$B,0),,1000,)=""),0),)=J$2),OFFSET($A$1,MATCH($I3,$B:$B,0),1,MATCH(1,1/(OFFSET($A$1,MATCH($I3,$B:$B,0),,1000,)=""),0),)),"")
K3陣列公式
=IFERROR(LOOKUP(2,1/(OFFSET($A$1,MATCH($I3,$B:$B,0),,MATCH(1,1/(OFFSET($A$1,MATCH($I3,$B:$B,0),,1000,)=""),0),)=J$2),OFFSET($A$1,MATCH($I3,$B:$B,0),4,MATCH(1,1/(OFFSET($A$1,MATCH($I3,$B:$B,0),,1000,)=""),0),)),"")
向右向下複製

高中生 Rank: 3 Rank: 3

帖子: 522
主題: 36
精華: 1
積分: 603
點名: 0
作業系統: win xp sp3
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2012-12-13
最後登錄: 2021-7-11

16^#

發表於 2014-3-13 19:44 | 只看該作者

回復 8# missbb
大大你好:
你的course3.xlsx檔案第43行, 如下:
FY13M2 FY13M2 10.01.2013 C75 E40
是不是忘了標示為Employee No.120008的顏色,
或是第三筆不用處理?

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 270
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2025-11-4

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

15^#

發表於 2014-3-13 15:45 | 只看該作者

回復 8# missbb
試試看附檔，注意名稱x,y

course3.zip (21.47 KB)

學海無涯_不恥下問

中學生 Rank: 2

帖子: 216
主題: 71
精華: 0
積分: 292
點名: 0
作業系統: window xp
軟體版本: 2007
閱讀權限: 20
性別: 女
註冊時間: 2012-6-27
最後登錄: 2024-9-28

14^#

發表於 2014-3-13 12:59 | 只看該作者

回復 13# yen956

不緊要, 謝你的幫忙.

高中生 Rank: 3 Rank: 3

帖子: 522
主題: 36
精華: 1
積分: 603
點名: 0
作業系統: win xp sp3
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2012-12-13
最後登錄: 2021-7-11

13^#

發表於 2014-3-12 14:02 | 只看該作者

回復 12# missbb
深感抱歉, 我也正在會學公式. 幫不上忙.

中學生 Rank: 2

帖子: 216
主題: 71
精華: 0
積分: 292
點名: 0
作業系統: window xp
軟體版本: 2007
閱讀權限: 20
性別: 女
註冊時間: 2012-6-27
最後登錄: 2024-9-28

12^#

發表於 2014-3-12 12:51 | 只看該作者

回復 11# yen956
如用函數可以嗎? 有些同事對VBA不熟識, 要稍作更改會困難一點.:'(

高中生 Rank: 3 Rank: 3

帖子: 522
主題: 36
精華: 1
積分: 603
點名: 0
作業系統: win xp sp3
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2012-12-13
最後登錄: 2021-7-11

11^#

發表於 2014-3-12 10:05 | 只看該作者

回復 8# missbb
試試看結果如下(我試過了, 應該沒問題)：

Option Explicit
Private Sub CommandButton1_Click()
Dim blankRow, endRow As Long
Dim i As Integer
'[A65536].End(xlUp)→由下往上找, 直到找到非空白格為止
endRow = [A65536].End(xlUp).Row
'FYxxxx 可能不只一個
[O3] = "=MATCH(R2C15,R1C17:R1C50)+15"
i = 1
Do
i = i + 1
If Cells(i, 1) = "Employee No." Then
blankRow = [P65536].End(xlUp).Row + 1
Cells(blankRow, 16) = Cells(i, 6)
Do
i = i + 1
If Left(Cells(i, 1), 2) = "FY" Then
[O2] = Cells(i, 1)
Cells(blankRow, [O3]) = Cells(i, 10)
Cells(blankRow, [O3] + 1) = Cells(i, 12)
End If
Loop Until i >= endRow Or Cells(i + 1, 1) = "Employee No."
If i >= endRow Then Exit Sub
End If
Loop Until i >= endRow
End Sub

複製代碼

高中生 Rank: 3 Rank: 3

帖子: 522
主題: 36
精華: 1
積分: 603
點名: 0
作業系統: win xp sp3
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2012-12-13
最後登錄: 2021-7-11

10^#

發表於 2014-3-12 04:44 | 只看該作者

回復 9# Hsieh
版大你好, 是的我的是2003, 謝謝回覆!!

靜思自在 : 閒人無樂趣，忙人無是非。

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