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

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2013-11-23 23:04 | 只看該作者

[發問] 多條件的VLOOPUP

各大大:

請問如何將表1的資料, 以函數放置在表2, 因為要以兩個條件使用VLOOKUP (第一組條件時段及薪金, 第二組是條件時段及加班)
抱歉因權限不足未能上傳檔案:(

表1
A                   B                                  C
                     時段                         金額
薪金          2013年1月-2月 10000
                  2013年3月-5月 20000
                  2013年5月                   25000
加班          2013年1月-5月 1000

表2
A                   B          C
時段          薪金    加班
2013年1月 10000 1000
2013年2月 10000 1000
2013年3月 20000 1000
2013年4月 20000 1000
2013年5月 25000 1000

樓主熱帖

tccivy

中學生 Rank: 2

帖子: 7
主題: 0
精華: 0
積分: 50
點名: 0
作業系統: windows
軟體版本: Office 2007
閱讀權限: 20
性別: 女
註冊時間: 2011-12-28
最後登錄: 2017-6-13

2016猴年全勤獎章

15^#

發表於 2013-12-7 01:25 | 只看該作者

EXCEL千變萬化再加上VBA有得學囉

TOP

missbb

中學生 Rank: 2

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

14^#

發表於 2013-12-2 21:08 | 只看該作者

回復 13# ML089

EXCEL真係變化多端, 會試試看!多謝各位大大!:D

TOP

ML089

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

13^#

發表於 2013-12-2 09:08 | 只看該作者

回復 1# missbb
回復 11# sunnyso

非規則資料會讓公式複雜化，
有時非規則資料是讓資料美觀，可增加輔助欄整理成標準資料塊，也可用簡單公式完成。

F2
=SUMPRODUCT((F$1=LOOKUP(ROW($2:$7),ROW($2:$7)/($A$2:$A$7<>""),$A$2:$A$7))*
(--($E2&"1日")>=--(LEFT($B$2:$B$7,FIND("-",$B$2:$B$7&-1)-1)&"1日"))*
(--($E2&"1日")<=--(LEFT($B$2:$B$7,5)&SUBSTITUTE(SUBSTITUTE(RIGHT($B$2:$B$7,3),"-",),"年",)&"1日")),$C$2:$C$7)

右拉下拉複製公式(黃色區)

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

sunnyso

高中生 Rank: 3 Rank: 3

帖子: 605
主題: 92
精華: 0
積分: 648
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 50
性別: 男
來自: macau
註冊時間: 2013-4-5
最後登錄: 2019-2-10

熱烈參與勳章好學求知勳章

12^#

發表於 2013-11-29 21:54 | 只看該作者

回復 11# sunnyso

ss

TOP

sunnyso

高中生 Rank: 3 Rank: 3

帖子: 605
主題: 92
精華: 0
積分: 648
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 50
性別: 男
來自: macau
註冊時間: 2013-4-5
最後登錄: 2019-2-10

熱烈參與勳章好學求知勳章

11^#

發表於 2013-11-29 21:39 | 只看該作者

不用VBA也可以, H~O欄爲輔助欄, 答案在Q~S欄

附件需要用WinRAR V5.0才能開啓

Sonny.rar (13.45 KB)

回復 4# ML089
回復 5# missbb
回復 6# nissin
回復 10# Hsieh

ss

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

10^#

發表於 2013-11-26 23:30 | 只看該作者

本帖最後由 Hsieh 於 2013-11-26 23:43 編輯

回復 1# missbb
你是要整理資料成為資料庫型態吧

Sub ex()
Dim OT$, Ary(), r&, y$, a$, i%, s&
Set dic = CreateObject("Scripting.Dictionary")
Set dic1 = CreateObject("Scripting.Dictionary")
r = 2
With Sheets(1)
Do Until .Cells(r, 2) = ""
OT = IIf(.Cells(r, 1) <> "", .Cells(r, 1), OT)
y = Split(.Cells(r, 2), "年")(0)
a = Split(.Cells(r, 2), "年")(1)
If InStr(a, "-") > 0 Then
ar = Split(a, "-")
For i = Val(ar(0)) To Val(ar(1))
dic(y & "年" & i & "月" & OT) = .Cells(r, 3)
dic1(y & "年" & i & "月") = ""
Next
Else
dic(y & "年" & a & OT) = .Cells(r, 3)
n = .Cells(r, 2)
dic1(.Cells(r, 2) & "") = ""
End If
r = r + 1
Loop
ay = Array("時段", "薪金", "加班")
ReDim Preserve Ary(s)
Ary(s) = ay
s = s + 1
For Each ky In dic1.keys
ReDim Preserve Ary(s)
Ary(s) = Array(ky, dic(ky & ay(1)), dic(ky & ay(2)))
s = s + 1
Next
With Sheets(2)
.Columns("A:C") = ""
.[A1].Resize(s, 3) = Application.Transpose(Application.Transpose(Ary))
End With
End With
End Sub

複製代碼

學海無涯_不恥下問

TOP

missbb

中學生 Rank: 2

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

9^#

發表於 2013-11-26 22:35 | 只看該作者

回復 8# nissin
多謝您呀 !:D

TOP

nissin

小學生 Rank: 1

帖子: 12
主題: 2
精華: 0
積分: 14
點名: 0
作業系統: Windows 7
軟體版本: Office 2013
閱讀權限: 10
註冊時間: 2013-11-25
最後登錄: 2014-1-17

8^#

發表於 2013-11-26 18:41 | 只看該作者

試試這個

Sub copydata()
Dim s1 As Long, s2 As Long, s3 As Long, d1 As Long, d2 As Long
Dim wages As Long, OT As Long
i = 1
While Sheets(1).Cells(i, 1) <> "薪金"
i = i + 1
Wend
wages = i
While Sheets(1).Cells(i, 1) <> "加班"
i = i + 1
Wend
OT = i
For i = wages To Sheets(1).UsedRange.Rows.Count
s1 = Left(Sheets(1).Cells(i, 2), 4)
s2 = Mid(Sheets(1).Cells(i, 2), 6, InStr(1, Sheets(1).Cells(i, 2), "月") - 5 - 1)
If InStr(1, Sheets(1).Cells(i, 2), "-") <> 0 Then
s3 = Mid(Sheets(1).Cells(i, 2), InStr(1, Sheets(1).Cells(i, 2), "-") + 1, Len(Sheets(1).Cells(i, 2)) - (InStr(1, Sheets(1).Cells(i, 2), "-") + 1))
Else
s3 = 0
End If
For j = 2 To Sheets(2).UsedRange.Rows.Count
d1 = Left(Sheets(2).Cells(j, 1), 4)
d2 = Mid(Sheets(2).Cells(j, 1), 6, InStr(1, Sheets(2).Cells(j, 1), "月") - 1 - 5)
If d1 * 100 + d2 >= s1 * 100 + s2 Then
If s3 <> 0 Then
If d1 * 100 + d2 <= s1 * 100 + s3 Then
If i >= OT Then
Sheets(2).Cells(j, 3) = Sheets(1).Cells(i, 3)
Else
Sheets(2).Cells(j, 2) = Sheets(1).Cells(i, 3)
End If
End If
Else
If i >= OT Then
Sheets(2).Cells(j, 3) = Sheets(1).Cells(i, 3)
Else
Sheets(2).Cells(j, 2) = Sheets(1).Cells(i, 3)
End If
End If
End If
Next j
Next i
End Sub

複製代碼

TOP

missbb

中學生 Rank: 2

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

7^#

發表於 2013-11-25 21:25 | 只看該作者

回復 6# nissin

明白, 已在學習中!:P

TOP