返回列表 上一主題 發帖

[發問] 讀取及歸類資料

singo1232001
　暱稱: 熱狗慶

中學生Rank: 2

帖子
353 
主題
5 
精華
0 
積分
386 
點名
0  
作業系統
windows7 
軟體版本
vba,vb,excel2007 
閱讀權限
20 
性別
男 
註冊時間
2017-1-8 
最後登錄
2024-5-4 

論壇榮譽勳章論壇贊助勳章
1# 跳轉到 »
發表於 2023-12-22 05:40 | 顯示全部帖子
回復 1# 198188


    Sub test()
r = Cells(Rows.Count, 1).End(3).Row
c = 7
Range("H2:J1000").ClearContents
For i = 3 To r
If Cells(i, 1).Value <> "" Then
tx = Split(Cells(i, 1).Value, " ")(0)
mr = Cells(i, 1).MergeArea.Count
If mr > 0 Then
For Each Z In Cells(i, 2).Resize(mr - 1, 5)
If UCase(Z.Value) Like "*SR*" Then
sp = Split(Z.Value, "(")(0)
sp = Replace(sp, "上架", "")
sp = Replace(sp, "下架", "")
sp = Replace(sp, " ", "")
tx = tx & "▲" & sp
End If

Next
c = c + 1
sp0 = Split(tx, "▲")
Cells(2, c).Resize(UBound(sp0) + 1, 1) = Application.Transpose(sp0)
End If
End If
Next
End Sub

TOP

singo1232001
　暱稱: 熱狗慶

中學生Rank: 2

帖子
353 
主題
5 
精華
0 
積分
386 
點名
0  
作業系統
windows7 
軟體版本
vba,vb,excel2007 
閱讀權限
20 
性別
男 
註冊時間
2017-1-8 
最後登錄
2024-5-4 

論壇榮譽勳章論壇贊助勳章
2#
發表於 2023-12-22 17:21 | 顯示全部帖子
回復 3# 198188

GPT4
Sub test()
    ' 定義變量並初始化變量r為第一列最後一個非空行的行號
    r = Cells(Rows.Count, 1).End(xlUp).Row
    ' 初始化輸出起始的列號c為第7列（即G列）
    c = 7

    ' 清除從H2到J1000的內容，為新的輸出做準備
    Range("H2:J1000").ClearContents

    ' 從第三行開始迴圈，直到最後一個非空行
    For i = 3 To r
        ' 檢查當前行第一列的單元格是否不為空
        If Cells(i, 1).Value <> "" Then
            ' 通過分割單元格值並取第一個元素來提取任務代碼
            tx = Split(Cells(i, 1).Value, " ")(0)
            ' 確定當前單元格合併區域的數量
            mr = Cells(i, 1).MergeArea.Count
            ' 如果存在合併的單元格
            If mr > 0 Then
                ' 遍歷合併區域中的每個單元格，排除第一個單元格（因此使用mr - 1）
                For Each Z In Cells(i, 2).Resize(mr - 1, 5)
                    ' 如果單元格包含"SR"字樣
                    If UCase(Z.Value) Like "*SR*" Then
                        ' 分割值以獲取SR編號，去除括號
                        sp = Split(Z.Value, "(")(0)
                        ' 從SR編號中移除"上架"、"下架"和空格
                        sp = Replace(sp, "上架", "")
                        sp = Replace(sp, "下架", "")
                        sp = Replace(sp, " ", "")
                        ' 用"▲"作為分隔符，將SR編號附加到任務代碼後面
                        tx = tx & "▲" & sp
                    End If
                Next
                ' 移動到下一列輸出位置
                c = c + 1
                ' 通過分隔符"▲"分割編譯後的任務代碼和SR編號
                sp0 = Split(tx, "▲")
                ' 將SR編號數組轉置並從當前列開始寫入工作表
                Cells(2, c).Resize(UBound(sp0) + 1, 1) = Application.Transpose(sp0)
            End If
        End If
    Next
End Sub
這段VBA宏的目的是將任務列表中的“SR”編號根據第一列指定的任務整理到不同的列中。它會先清除指定範圍的內容，接著處理資料並分割字串，最後將整理好的輸出轉置至工作表中。這些註解應該能幫助你理解這個宏的邏輯和流程。

TOP

        靜思自在 : 原諒別人就是善待自己。
返回列表 上一主題