返回列表 上一主題 發帖

請問sheet轉換的問題

tonycho33

帖子
102 
主題
30 
精華
0 
積分
137 
點名
0  
作業系統
winxp 
軟體版本
12 
閱讀權限
20 
性別
男 
註冊時間
2011-11-24 
最後登錄
2018-12-6 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-1-17 13:37 | 顯示全部帖子

請問sheet轉換的問題

請問sheet1是原檔(資料庫)
如何轉換成sheet2
類似vlookup的做法
依B欄的數字（順序打亂）依序填入C~J欄的資料
A、B欄可以往後再繼續延伸

謝謝

sheet-vlookup.rar (5.8 KB)

收藏 分享
Tony

tonycho33

帖子
102 
主題
30 
精華
0 
積分
137 
點名
0  
作業系統
winxp 
軟體版本
12 
閱讀權限
20 
性別
男 
註冊時間
2011-11-24 
最後登錄
2018-12-6 
2#
發表於 2012-1-18 09:48 | 顯示全部帖子
回復 5# GBKEE


    可以解釋一下嗎
謝謝
Tony

TOP

tonycho33

帖子
102 
主題
30 
精華
0 
積分
137 
點名
0  
作業系統
winxp 
軟體版本
12 
閱讀權限
20 
性別
男 
註冊時間
2011-11-24 
最後登錄
2018-12-6 
3#
發表於 2012-1-18 13:58 | 顯示全部帖子
本帖最後由 tonycho33 於 2012-1-18 14:12 編輯

回復 4# register313


    請問我現在格式做了一點變動
  1. Sub VLOOKUP()
  2. Sheet2.Columns("G:S") = ""
  3. R = 2                                 
  4.    Do Until Sheet2.Cells(R, "A") = ""  
  5.       Set S = Sheet1.Range("A1:A65535").Find(Sheet2.Cells(R, "A"), , , xlWhole)                                   
  6.       S.Offset(0, 5).Resize(3, 13).Copy Sheet2.Cells(B, "G").Resize(3, 13)                                    
  7.       R = R + 3                                       
  8.    Loop
  9. End Sub
複製代碼
請協助看為何無法執行
另外,使用函數要如何修改
原函數
C2=OFFSET(INDEX(Sheet1!$A$1:$J$20,MATCH($B2,Sheet1!$B$1:$B$20,0),COLUMN()),MOD(ROW()+1,3),0)
謝謝

sheet-vlookup.rar (8.28 KB)

Tony

TOP

tonycho33

帖子
102 
主題
30 
精華
0 
積分
137 
點名
0  
作業系統
winxp 
軟體版本
12 
閱讀權限
20 
性別
男 
註冊時間
2011-11-24 
最後登錄
2018-12-6 
4#
發表於 2012-1-19 10:53 | 顯示全部帖子
回復 8# register313


    你好
請問一下
在sheet2的A欄儲存格內，如果輸入的值不是sheet1 的A欄值時
例如
A23∼A25＝3332
A26∼A28＝3334
這樣的時候
程式執行會出現錯誤，可否輸入值不一樣時，G∼S欄只出現空白
要如何解決修改呢
謝謝

sheet-vlookup程式.rar (9.3 KB)

Tony

TOP

        靜思自在 : 多做多得。少做多失。
返回列表 上一主題