帖子: 28
主題: 17
精華: 0
積分: 79
點名: 0
作業系統: XP
軟體版本: SP2
閱讀權限: 20
性別: 女
註冊時間: 2012-5-4
最後登錄: 2016-9-29

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2012-11-20 22:23 | 只看該作者

[發問] 請教VBA 兩行儲存格的字串合併問題~~~~~~~~~~

問問題101.11.20.rar (9.78 KB) :(
Sub TEST()
' Worksheets("Sheet1").Range("A1:A65530") = Worksheets("Sheet1").Range("B1:B65530") & Worksheets("Sheet1").Range("C1:C65530") '型態不符合

all_number = ThisWorkbook.Sheets("Sheet1").Range("B65536").End(xlUp).Row
For I = 2 To all_number
Cells(I, 1) = Trim(Cells(I, 2)) & Trim(Cells(I, 3))
Next I
End Sub

有沒有辨法不跑迴圈，一個個組合字串，
可有方法類似Range 大範圍的組合字串，謝謝~~~指教

樓主熱帖

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

2^#

發表於 2012-11-20 23:40 | 只看該作者

回復 1# ji12345678
不用迴圈..

Sub TEST()
With Sheets("Sheet1").Range("A2:A" & Sheets("Sheet1").Range("B65536").End(xlUp).Row)
.FormulaR1C1 = "=trim(RC[1])&trim(RC[2])"
.Value = .Value
End With
End Sub

複製代碼

TOP

ABK

中學生 Rank: 2

帖子: 115
主題: 24
精華: 0
積分: 178
點名: 2
作業系統: WIN10
軟體版本: Office2016
閱讀權限: 20
性別: 男
註冊時間: 2011-1-12
最後登錄: 2024-11-15

3^#

發表於 2020-7-16 21:58 | 只看該作者

請教一下!
依上例若是要在組合字串的中間加入一個減號"-" , 程式要怎樣修改 ?
如下:
1-橋本
2-高山
3-岡田

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-25

4^#

發表於 2020-7-17 10:09 | 只看該作者

回復 3# ABK

.FormulaR1C1 = "=trim(RC[1])&""-""&trim(RC[2])"

TOP

ABK

中學生 Rank: 2

帖子: 115
主題: 24
精華: 0
積分: 178
點名: 2
作業系統: WIN10
軟體版本: Office2016
閱讀權限: 20
性別: 男
註冊時間: 2011-1-12
最後登錄: 2024-11-15

5^#

發表於 2020-7-17 12:49 | 只看該作者

回復 4# 准提部林

謝謝准提大 ! OK 了!

TOP

ABK

中學生 Rank: 2

帖子: 115
主題: 24
精華: 0
積分: 178
點名: 2
作業系統: WIN10
軟體版本: Office2016
閱讀權限: 20
性別: 男
註冊時間: 2011-1-12
最後登錄: 2024-11-15

6^#

發表於 2020-7-31 22:15 | 只看該作者

我想沿用這個程式在A欄填入公式 , 用來計算B欄的值是第幾次重複, 但是有錯誤, 請教大大們要如何修正
或是不填入公式, 可以用程式直接算出重複第幾次更好。

Sub sheet1_Formula()

With Sheets("sheet1").Range("A2:A" & Sheets("sheet1").Range("B65536").End(xlUp).Row)
.FormulaR1C1 = "=COUNTIF($B$2:$B" & ROW() & ",B" & Row())-1" '填入公式

.Value = .Value
End With

End Sub

count.jpg (35.6 KB)

Count.zip (14.66 KB)

TOP

ABK

中學生 Rank: 2

帖子: 115
主題: 24
精華: 0
積分: 178
點名: 2
作業系統: WIN10
軟體版本: Office2016
閱讀權限: 20
性別: 男
註冊時間: 2011-1-12
最後登錄: 2024-11-15

7^#

發表於 2020-7-31 22:41 | 只看該作者

回復 6# ABK

更正: 上面的程式是用來計算重複的次數, 不是填入公式。

TOP

n7822123

　暱稱: 阿龍

中學生 Rank: 2

帖子: 406
主題: 8
精華: 0
積分: 453
點名: 0
作業系統: WINDOWS 7
軟體版本: 2007
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2015-2-7
最後登錄: 2021-7-31

8^#

發表於 2020-8-1 02:19 | 只看該作者

回復 7# ABK

這個方法 "FormulaR1C1"  是R1C1表示法的公式

你原本的公式寫法比較像一般的公式，請用 "Formula"

Excel 很聰明的，只要用VBA在連續範圍填入範圍內第一格公式就好了~~

其它格公式相當於右拉下拉~

以此範例，只要在範圍內填入 A2需要的公式即可...不用再寫 Row()這種函數

先填入公式再轉值寫法如下
Sub sheet1_Formula()
Rn& = [sheet1!B65536].End(3).Row
With [sheet1!A2].Resize(Rn - 1)
      .Formula = "=COUNTIF($B$2:$B2,B2)-1" '填入A2的公式
      .Value = .Value
End With
End Sub

不用Excel工作表函數的VBA寫法
Sub sheet1_VBA()
Dim Arr, Brr, R&, S$
Arr = Range([A2], [B65536].End(3))
For R = 1 To UBound(Arr)
S = S & "," & Arr(R, 2)
Brr = Split(Mid(S, 2), ",")
Arr(R, 1) = UBound(Filter(Brr, Arr(R, 2)))
Next R
Range([A2], [B65536].End(3)) = Arr
End Sub

很顯然~~第一種寫法簡單多了，這要歸功於Excel的聰明

程式是依需求寫的，需求表達不清楚
或者沒有上傳附件，愛莫能助

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-25

9^#

發表於 2020-8-1 09:28 | 只看該作者

回復 6# ABK

字典+陣列, 可解決很多基本需求, 可花些時間學習:
Sub sheet1_VCunt()
Dim Arr, i&, xD, T$
Set xD = CreateObject("Scripting.Dictionary")
Arr = Range([Sheet1!B1], [Sheet1!B65536].End(xlUp))
For i = 2 To UBound(Arr)
T = Arr(i, 1)
Arr(i - 1, 1) = Val(xD(T))
If T <> "" Then xD(T) = xD(T) + 1
Next i
[A2].Resize(UBound(Arr) - 1) = Arr
End Sub

TOP

ABK

中學生 Rank: 2

帖子: 115
主題: 24
精華: 0
積分: 178
點名: 2
作業系統: WIN10
軟體版本: Office2016
閱讀權限: 20
性別: 男
註冊時間: 2011-1-12
最後登錄: 2024-11-15

10^#

發表於 2020-8-11 18:26 | 只看該作者

回復 8# n7822123

感謝阿龍大熱心給了兩個程式 !

TOP