PJChen

　暱稱: PJ

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

論壇榮譽勳章論壇贊助勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2021-2-24 23:38 | 只看該作者

[發問] 依關鍵字移動資料

大家好：

1.. 第2列統倉D:M名稱兩兩相同,名稱相同的第一欄有數字,第2欄就會空白
2.. A:C的資料,排列會變動,資料也會增減,
3.. macro_1.xls.理貨單[AG5]關鍵字,可隨意變化,目前設定字為"好朋友"
4.. 請問如何讓C欄的商品名稱,包含關鍵字&儲存格內有數字者,向同名稱的欄位右移,但不能改變格式,無數字,則不動作

關鍵字.rar (20.95 KB)

樓主熱帖

jcchiang

中學生 Rank: 2

帖子: 234
主題: 19
精華: 0
積分: 276
點名: 0
作業系統: Windows XP
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2013-1-7
最後登錄: 2021-10-7

2^#

發表於 2021-2-25 09:15 | 只看該作者

回復 1# PJChen

試試看
Sub ex()
Dim Key$, C$, X%, S_NO
Dim A As Variant
Key = [AG5]
S_NO = [AG3]
C = Dir([AG1] & [AG2])
Do While C <> ""
With Workbooks.Open([AG1] & C)
   With Workbooks(C).Worksheets(S_NO)
      For Each A In .Range(.[c5], .[c5].End(4))
         If A Like "*" & Key Then
            For X = 1 To 10 Step 2
               If .Range(A.Address).Offset(, X) <> "" Then
                  .Range(A.Address).Offset(, X + 1) = .Range(A.Address).Offset(, X)
                  .Range(A.Address).Offset(, X) = ""
               End If
            Next
         End If
      Next
   End With
   Application.DisplayAlerts = False
   Workbooks(C).Close True
   Application.DisplayAlerts = True
End With
C = Dir
Loop
End Sub

TOP

PJChen

　暱稱: PJ

大學生 Rank: 4

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

論壇榮譽勳章論壇贊助勳章

3^#

發表於 2021-2-25 21:52 | 只看該作者

回復 2# jcchiang
感謝大大,
可以執行！

TOP

PJChen

　暱稱: PJ

大學生 Rank: 4

帖子: 913
主題: 150
精華: 0
積分: 1089
點名: 0
作業系統: win10
軟體版本: office 2019
閱讀權限: 50
性別: 女
註冊時間: 2011-8-28
最後登錄: 2023-7-19

論壇榮譽勳章論壇贊助勳章

4^#

發表於 2021-2-25 23:40 | 只看該作者

本帖最後由 PJChen 於 2021-2-26 00:02 編輯

回復 2# jcchiang

您好,

程式檔中因為有許多工作表,所以我稍修改程式,這個程式測試時沒問題,
但程式不變放到另一macro程式中就無作用,我另一程式中的[AG5]是由公式帶出的"好朋友"
後來把這句改成後面也有"*" ,居然就沒問題了,Why?
If A Like "*" & Key & "*" Then

移動DC排序.rar (44.4 KB)

TOP

jcchiang

中學生 Rank: 2

帖子: 234
主題: 19
精華: 0
積分: 276
點名: 0
作業系統: Windows XP
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2013-1-7
最後登錄: 2021-10-7

5^#

發表於 2021-2-26 08:14 | 只看該作者

回復 4# PJChen

無法了解"無作用"是什麼情形
後面多加個"*"只是讓條件更多選擇

TOP