12
返回列表 上一主題 發帖

[發問] 逐筆比對回傳資料

蘿蔔泥

帖子
36 
主題
10 
精華
0 
積分
93 
點名
0  
作業系統
win10 
軟體版本
office 2007 
閱讀權限
20 
註冊時間
2018-2-27 
最後登錄
2022-2-25 
5# 跳轉到 »
發表於 2021-1-27 14:19 | 只看該作者
回復 4# 軒云熊


            a = Arr(x, 1) & "|" & Arr(x, 2) & "|" & _
            Brr(3, 1) & "|" & Brr(3, 2) & "|" & _
            Brr(3, 3) & "|" & Sheets(2).Cells(3, 4)
            a = Split(a, "|")
            For Y = 1 To 6
                Sheets(3).Cells(Rows.Count, Y).End(xlUp)(2) = a(Y - 1)
            Next Y
           Exit For

不好意思再請教一下，Sheets(3).Cells(Rows.Count, Y).End(xlUp)(2)的部分，
Sheets(3).Cells(Rows.Count, Y)這是會抓到最後一筆資料的列數，加上End(xlUp)(2)選取下一列空格，可我不了解End(xlUp)(2)指的是？(2)又有啥意思呢？為什麼選取下一列不是用End(xlDown)？
另外，a(Y - 1)因為是陣列所以A(0)是第一的意思嗎？

還在努力學習中，所以有些指令看不太懂，如果造成困擾還請見諒

TOP

軒云熊

帖子
254 
主題
6 
精華
0 
積分
310 
點名
0  
作業系統
W10 
軟體版本
Excel 2016 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2019-6-16 
最後登錄
2024-9-23 
4#
發表於 2021-1-26 20:50 | 只看該作者
本帖最後由 軒云熊 於 2021-1-26 20:54 編輯

回復 3# 蘿蔔泥
其實 用字典方式比較好 但我還在學習中.. 所以用了比較笨的方式   
以下只是串聯文字
A = Arr(x, 1) & "|" & Arr(x, 2) & "|" & Brr(3, 1) & "|" & Brr(3, 2) & "|" & Brr(3, 3) & "|" & Sheets(2).Cells(3, 4)

然後再分割到儲存格
A = Split(A, "|")
For Y = 1 To 6
           Sheets(3).Cells(Rows.Count, Y).End(xlUp)(2) = A(Y - 1)

謝謝你願意花時間幫我測試  謝謝你

TOP

蘿蔔泥

帖子
36 
主題
10 
精華
0 
積分
93 
點名
0  
作業系統
win10 
軟體版本
office 2007 
閱讀權限
20 
註冊時間
2018-2-27 
最後登錄
2022-2-25 
3#
發表於 2021-1-26 16:20 | 只看該作者
本帖最後由 蘿蔔泥 於 2021-1-26 16:33 編輯

回復 2# 軒云熊


    是的，謝謝

不好意思，這部分我不懂是意思，可以跟您請教嗎？
            A = Arr(x, 1) & "|" & Arr(x, 2) & "|" & Brr(3, 1) & "|" & Brr(3, 2) & "|" & Brr(3, 3) & "|" & Sheets(2).Cells(3, 4)
            A = Split(A, "|")
            For Y = 1 To 6
           Sheets(3).Cells(Rows.Count, Y).End(xlUp)(2) = A(Y - 1)

Public Sub 特休統計練習()
    Application.ScreenUpdating = False
   
    Arr = [特休天數!A1].CurrentRegion
    Brr = [登錄!A1].CurrentRegion
   
    For x = 2 To UBound(Arr)
        If Brr(1, 2) = Arr(x, 1) And _
        Brr(3, 2) >= Arr(x, 4) And _
        Brr(3, 2) <= Arr(x, 5) Then
            Sheets(2).Cells(3, 4) = Arr(x, 8)
            Sheets(1).Cells(x, 9) = _
            Sheets(1).Cells(x, 9) + Brr(3, 3)
            A = Arr(x, 1) & "|" & Arr(x, 2) & "|" & _
            Brr(3, 1) & "|" & Brr(3, 2) & "|" & _
            Brr(3, 3) & "|" & Sheets(2).Cells(3, 4)
            A = Split(A, "|")
            For Y = 1 To 6
                Sheets(3).Cells(Rows.Count, Y).End(xlUp)(2) = A(Y - 1)
            Next Y
        Exit For
        End If
    Next x
   
    Application.ScreenUpdating = True
End Sub

TOP

軒云熊

帖子
254 
主題
6 
精華
0 
積分
310 
點名
0  
作業系統
W10 
軟體版本
Excel 2016 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2019-6-16 
最後登錄
2024-9-23 
2#
發表於 2021-1-18 19:30 | 只看該作者
回復 1# 蘿蔔泥
有空幫我試試看是不是這樣的結果 感謝


javascript:;

特休統計0118.rar (14.72 KB)

TOP

        靜思自在 : 有智慧才能分辨善惡邪正；有謙虛才能建立美滿人生。
12
返回列表 上一主題