[發問] 如何大量複製儲存格內指定字串？

turbine

1020911問題檔.zip (85.44 KB)

下載次數: 9

2013-9-11 16:03

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

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

GBKEE

回復 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

回復 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

回復 2# GBKEE


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

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

turbine

回復 3# jakcy1234


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

GBKEE

回復 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

回復 6# GBKEE


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