帖子: 15
主題: 5
精華: 0
積分: 20
點名: 0
作業系統: WINDOWS
軟體版本: 7
閱讀權限: 10
註冊時間: 2013-7-22
最後登錄: 2015-7-21

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2014-2-14 11:57 | 只看該作者

[發問] i甚麼時候+數 , 又怎樣可以變回零又到相關位置再次計算?

大家好

sub addcomma是合併所需要資料合併成合併資料的模樣

http://forum.twbts.com/viewthread.php?tid=10512&highlight=

多得stillfish00大大的幫助已可將所需資料合併

但我寫了一個星期仍未可寫出
選取資料後執行addcomma貼到所需位置
再刪除無用資料...

試了用Resize做選取資料
OFFSET做移動
但因有i是變數
行數也是變數而變得困難...

請問i = 變數時的使用上的秘訣?
即
i = Worksheets("sheet1").Range("a2").End(xlDown).Row
之類
A2又可以怎樣重新定義?

Book1-1.zip (11.8 KB)

謝謝

樓主熱帖

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^#

發表於 2014-2-14 12:40 | 只看該作者

回復 1# joslau

Option Explicit
Sub Ex()
Dim Ar(), i As Integer, S As Integer
i = 2
With ActiveSheet
Do While .Cells(i, "C") <> ""
If .Cells(i, "A") & .Cells(i, "B") <> "" Then
S = S + 1
ReDim Preserve Ar(1 To 4, 1 To S) '陣列:重置第二維的元素上限值
Ar(1, S) = .Cells(i, "A")
Ar(2, S) = .Cells(i, "B")
Ar(3, S) = .Cells(i, "C")
Ar(4, S) = .Cells(i, "C")
Else
Ar(4, S) = Ar(4, S) & "," & .Cells(i, "C")
End If
i = i + 1
Loop
.Range("F2").Resize(S, 4) = Application.Transpose(Ar)
End With
End Sub

複製代碼

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

TOP

stillfish00

大學生 Rank: 4

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

3^#

發表於 2014-2-14 14:08 | 只看該作者

本帖最後由 stillfish00 於 2014-2-14 14:09 編輯

回復 1# joslau
參考:

Sub Test()
Dim rngSource As Range, rngTarget As Range
Dim ar, i As Long, j As Long
With Sheets("Sheet1")
Set rngSource = .[A1].CurrentRegion.Resize(, 3) '來源
Set rngTarget = .[G1].Resize(rngSource.Rows.Count, 3) '合併結果
'刪除舊的結果
If rngTarget.Cells(1).Value <> "" Then rngTarget.Cells(1).CurrentRegion.ClearContents
'合併
ar = rngSource.Value '一次性取出
For i = 1 To UBound(ar)
If ar(i, 1) <> "" Then
j = j + 1
rngTarget.Cells(j, 1).Resize(, 3) = Application.Index(ar, i)
Else
rngTarget.Cells(j, 3).Value = rngTarget.Cells(j, 3).Value & "," & ar(i, 3)
End If
Next
End With
End Sub

複製代碼

TOP

joslau

小學生 Rank: 1

帖子: 15
主題: 5
精華: 0
積分: 20
點名: 0
作業系統: WINDOWS
軟體版本: 7
閱讀權限: 10
註冊時間: 2013-7-22
最後登錄: 2015-7-21

4^#

發表於 2014-2-14 14:43 | 只看該作者

本帖最後由 joslau 於 2014-2-14 14:46 編輯

回復 2# GBKEE
回復 3# stillfish00

先謝謝
兩位提點供出原始碼作參考
需要時間研究

因單號會有長短
合併時因過長有機會數據變成"12,345,678,911,234,500,000"等等
需要加 " ' "在頭

如再有問題或成果
會再回覆主題

TOP

joslau

小學生 Rank: 1

帖子: 15
主題: 5
精華: 0
積分: 20
點名: 0
作業系統: WINDOWS
軟體版本: 7
閱讀權限: 10
註冊時間: 2013-7-22
最後登錄: 2015-7-21

5^#

發表於 2014-2-14 15:09 | 只看該作者

已解決

rngTarget.Cells(j, 3).Value = rngTarget.Cells(j, 3).Value & "," & ar(i, 3)

複製代碼

改成

rngTarget.Cells(j, 3).Value = [color=Red]"'" &[/color] rngTarget.Cells(j, 3).Value & "," & ar(i, 3)

複製代碼

我會再研究以上原始碼的用法

謝謝!!!

TOP