標題: [發問] 依關鍵字移動資料 [打印本頁]

---

作者: PJChen    時間: 2021-2-24 23:38     標題: 依關鍵字移動資料

大家好：

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

---

作者: jcchiang    時間: 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

---

作者: PJChen    時間: 2021-2-25 21:52

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

---

作者: PJChen    時間: 2021-2-25 23:40

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

回復 2# jcchiang

您好,

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


[attach]33081[/attach]

---

作者: jcchiang    時間: 2021-2-26 08:14

回復 4# PJChen

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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)