請教excel 陣列問題

lionliu

各位大哥:
小弟有一個excel陣列問題想要將工作表1，轉到工作表2。
並將品名重排但是一直出問題。
還有是否可以不辨東工作表1就直接產生工作表2內容。
活頁簿1.rar (17 KB)

下載次數: 13

2015-7-12 11:59

GBKEE

回復 15# lionliu
看看位置的差異

1. MsgBox rng.Cells(1, 8).Address  '為何不是
   
2. MsgBox rng.Cells(i, 8).Address

複製代碼

lionliu

回復 14# GBKEE
謝謝gb大哥的教導可以了，但是卻有地方有疑問。
r=rng.cells(1,8).value 為何不是 r=rng.cells( i , 8).value

GBKEE

回復 13# lionliu
參考看看

1. Dim R As String         '型態為字串
   
2. 
   
3. '這裡也要修改 當作用中的工作表是工作表1時 會有 "型態不符合的錯誤
   
4. '.Cells(i, 4) = Cells(i, 2) * Cells(i, 3)        '修改位置 D欄由計算求值
   
5. 
   
6. .Cells(i, 4) = .Cells(i, 2) * .Cells(i, 3)                             '修改位置 D欄由計算求值

複製代碼

lionliu

回復 12# GBKEE
還是錯但問題不一樣

下載 (8.1 KB)

2015-7-20 11:44

下載 (6.87 KB)

2015-7-20 11:44

GBKEE

回復 11# lionliu
是這樣嗎?

1. R = Rng.Cells(1, 8).Value
   
2.             strcomma = WorksheetFunction.Find(",", R) '修改位置 H欄,
   
3.             lenstr = Len(R)
   
4.             dsc = Right(R, lenstr - strcomma)

複製代碼

lionliu

回復 10# GBKEE
剛剛在測試一次，結果是:DO WHILE RNG <>"" ,RNG=11 結束，SHEETS 2 RUN到 ROW =11時尚未結束，
這一段程式會出錯strcomma = WorksheetFunction.Find(",", Sheets(1).Cells(i, 8))，
所以我才這樣懷疑，但是當我停掉此錯誤又能跑完全。
不知此段語法哪裡出錯，還是不應該放在此位置，若有錯前3項又能產生感到非常不解。

GBKEE

回復 9# lionliu

第2帖的程式碼
Rng 不就是 第一個工作表的Row
i  是 第二個工作表的Row

1.   Set Rng = Sheets(1).[A2]
   
2. 05.    With Sheets(2)
   
3. 06.        .UsedRange.Clear              '.UsedRange的範圍 < .Cells的範圍,處裡速度會快些
   
4. 07.        .Range("a1").Resize(, 4) = Array("Description", "Qty", "Price", "Amount") '一起給值
   
5. 08.        i = 2                          '設定起始值
   
6. 09.        Do While Rng <> ""             'Rng ="" 迴圈停止
   
7. 10.            If Msg = False Then

複製代碼

lionliu

回復 8# GBKEE
其實是我不好意思，受到gb大哥的教導獲益良多，我會再努力去完成它
，還是要再此跟你說謝謝。我想若能克服工作表1的ROW值與工作表2的ROW對應問題即可。

GBKEE

回復 7# lionliu
不好意思,看不出附檔的規律性,VBA寫不出來.