標題: [發問] 如何大量複製儲存格內指定字串？ [打印本頁]

---

作者: turbine    時間: 2013-9-11 16:07     標題: 如何大量複製儲存格內指定字串？

[attach]16027[/attach]

請問各位大大，如附件：
儲格a內所有內容，自左邊數來第一個空白後複製到儲格b內原有內容後面。
該如何能辦的到？
ex：
A2→BALL BALL A182 F304,K200-1BBM-00 2
B2→球
想合併成，
B2→球  BALL A182 F304,K200-1BBM-00 2
自B2至B5415。

還請各位大大幫忙、指導，謝謝。

---

作者: GBKEE    時間: 2013-9-11 16:24

回復 1# turbine

1. Option Explicit
   
2. Sub Ex()
   
3.     With Sheets("sheet1")
   
4.         With .Range("b2", .Range("b2").End(xlDown))
   
5.             .Offset(, 1) = "=rc2&"" ""&rc1"
   
6.             .Cells = .Offset(, 1).Value
   
7.             .Offset(, 1) = ""
   
8.         End With
   
9.     End With
   
10. End Sub

複製代碼

---

作者: jakcy1234    時間: 2013-9-11 16:27

回復 1# turbine
球 BALL BALL A182 F304,K200-1BBM-00 2
球 BALL 20"-#600 BALL V/V BALL,2B-20067B-3
軸承 BEARING AOP BALL BEARING/G4-54098-14
軸承 BEARING MOP BALANCE PISTON/GCS-034135-256

你是要 BALL 取代 球 ?
  還是 A1 合併 B2 ?

---

作者: turbine    時間: 2013-9-12 09:42

回復 2# GBKEE


先謝謝GBKEE大的程式碼，不過可能小弟我沒說明白，我要的是...
以A4及B4格來講：
A4：BEARING AOP BALL BEARING/G4-54098-14
B4：軸承 AOP BALL BEARING/G4-54098-14
而不是把A4內全部貼到B4的中文後面...

不知道這樣是否有講清楚...謝謝。

---

作者: turbine    時間: 2013-9-12 09:45

回復 3# jakcy1234


J大您好：
我是要...
把所有A內規範的第一個空白前的名稱，用B內的中文取代掉。
以B來講...
球取代掉BALL
軸承取代掉BEARING
伸縮囊取代掉BELLOW
依此類推...
謝謝。

---

作者: GBKEE    時間: 2013-9-12 09:55

回復 4# turbine
再試試看

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim E As Range, S
   
4.     With Sheets("sheet1")
   
5.         For Each E In .Range("A2", .Range("A2").End(xlDown))
   
6.             S = Split(E, " ")
   
7.             S = Replace(E, S(0), "", 1, 1)
   
8.             E.Offset(, 1) = E.Offset(, 1) & S
   
9.         Next
   
10.     End With
    
11. End Sub

複製代碼

---

作者: turbine    時間: 2013-9-12 14:29

回復 6# GBKEE


成功了！！！
謝謝GKBEE大~~~~~~~~
感謝再感謝~~~

---

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