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

1020911問題檔.zip (85.44 KB)

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

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

樓主熱帖

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2013-9-11 16:24 | 只看該作者

回復 1# turbine

Option Explicit
Sub Ex()
With Sheets("sheet1")
With .Range("b2", .Range("b2").End(xlDown))
.Offset(, 1) = "=rc2&"" ""&rc1"
.Cells = .Offset(, 1).Value
.Offset(, 1) = ""
End With
End With
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

jakcy1234

中學生 Rank: 2

帖子: 37
主題: 10
精華: 0
積分: 63
點名: 0
作業系統: XP
軟體版本: 2010
閱讀權限: 20
性別: 男
註冊時間: 2013-8-25
最後登錄: 2016-5-24

3^#

發表於 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 ?

TOP

turbine

中學生 Rank: 2

帖子: 36
主題: 9
精華: 0
積分: 79
點名: 0
作業系統: windows
軟體版本: xp
閱讀權限: 20
註冊時間: 2010-5-25
最後登錄: 2015-8-13

4^#

發表於 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的中文後面...

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

TOP

turbine