lionliu

帖子: 97
主題: 26
精華: 0
積分: 158
點名: 0
作業系統: windows
軟體版本: office2010
閱讀權限: 20
性別: 男
來自: taichung
註冊時間: 2010-9-12
最後登錄: 2019-8-29

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2015-7-12 12:00 | 顯示全部帖子

請教excel 陣列問題

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

活頁簿1.rar (17 KB)

樓主熱帖

lionliu

中學生 Rank: 2

帖子: 97
主題: 26
精華: 0
積分: 158
點名: 0
作業系統: windows
軟體版本: office2010
閱讀權限: 20
性別: 男
來自: taichung
註冊時間: 2010-9-12
最後登錄: 2019-8-29

2^#

發表於 2015-7-13 14:25 | 顯示全部帖子

回復 2# GBKEE
謝謝gb大哥已可以用了，現在正嘗試把它吃透。

lionliu

TOP

lionliu

中學生 Rank: 2

帖子: 97
主題: 26
精華: 0
積分: 158
點名: 0
作業系統: windows
軟體版本: office2010
閱讀權限: 20
性別: 男
來自: taichung
註冊時間: 2010-9-12
最後登錄: 2019-8-29

3^#

發表於 2015-7-17 10:13 | 顯示全部帖子

回復 2# GBKEE
gbkee大哥好
小弟有將資料表和巨集內容進行修正，但是因為對照資料表rng問題，
無法將所有資料過到工作表2，不知應如何修正。

活頁簿1.rar (15.68 KB)

lionliu

TOP

lionliu

中學生 Rank: 2

帖子: 97
主題: 26
精華: 0
積分: 158
點名: 0
作業系統: windows
軟體版本: office2010
閱讀權限: 20
性別: 男
來自: taichung
註冊時間: 2010-9-12
最後登錄: 2019-8-29

4^#

發表於 2015-7-17 16:30 | 顯示全部帖子

本帖最後由 lionliu 於 2015-7-17 16:39 編輯

回復 5# GBKEE
不好意思，沒敘述清除
我的工作表一增加G、H欄，H只取","右邊的字串。
SHEETS(2) A欄的順序是如下，並將AMOUNT改成公式求得

      Description Qty Price Amount
      po no : as123                      'SHEETS(1)的A欄
      item no: ab11201 2 12 24    'SHEETS(1)的B欄
      FGHRT                'SHEETS(1)的H欄 ","右邊字串  DSC
      acs 102 cdes                      'SHEETS(1)的C欄
   AB3456                               'SHEETS(1)的G欄

   item no: ab11200 23 10 230
      FGHRT
   zxc 2304 df
   AB3456

      item no: ab11203 24 10 240
      ERTT
      zxc 2335 df
      AC780F
不曉得說明是否清楚

lionliu

TOP

lionliu

中學生 Rank: 2

帖子: 97
主題: 26
精華: 0
積分: 158
點名: 0
作業系統: windows
軟體版本: office2010
閱讀權限: 20
性別: 男
來自: taichung
註冊時間: 2010-9-12
最後登錄: 2019-8-29

5^#

發表於 2015-7-18 08:33 | 顯示全部帖子

回復 5# GBKEE
附上修改後壓縮檔內有說明

活頁簿1.rar (17.14 KB)

lionliu

TOP

lionliu

中學生 Rank: 2

帖子: 97
主題: 26
精華: 0
積分: 158
點名: 0
作業系統: windows
軟體版本: office2010
閱讀權限: 20
性別: 男
來自: taichung
註冊時間: 2010-9-12
最後登錄: 2019-8-29

6^#

發表於 2015-7-18 20:45 | 顯示全部帖子

本帖最後由 lionliu 於 2015-7-18 20:50 編輯

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

lionliu

TOP

lionliu

中學生 Rank: 2

帖子: 97
主題: 26
精華: 0
積分: 158
點名: 0
作業系統: windows
軟體版本: office2010
閱讀權限: 20
性別: 男
來自: taichung
註冊時間: 2010-9-12
最後登錄: 2019-8-29

7^#

發表於 2015-7-19 11:33 | 顯示全部帖子

本帖最後由 lionliu 於 2015-7-19 11:35 編輯

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

lionliu

TOP

lionliu