返回列表 上一主題 發帖

[發問] 如何對特定欄進行篩選和替代資料

luke

帖子
140 
主題
37 
精華
0 
積分
193 
點名
0  
作業系統
Windows XP 
軟體版本
Office 2007 
閱讀權限
20 
註冊時間
2012-3-28 
最後登錄
2015-7-5 

2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-5-25 22:27 | 顯示全部帖子

[發問] 如何對特定欄進行篩選和替代資料

本帖最後由 luke 於 2013-5-25 22:28 編輯

各位先進

1. sheet1表的A:C欄為資料區, 約有500列(含空白列), 其中B欄資料(含有黃底色的儲存格), 當按下『篩選』
    按鍵就會抓取B欄有黃底的儲存格至L:N欄(PS: L欄=N欄, M欄取C欄)

2.完成篩選後, B欄有黃底的儲存格想要利用L欄與N欄[N欄是由人工輸入資料,視情況會做修改]相對應關係,
   當按下『替代』按鍵, 只需對B欄進行字母的替代(其他欄位不需做替代),
   即取N欄相對應至L欄的儲存格資料, 去對B欄所有黃底的儲存格做文字替代.

3.若N欄資料中, 有與B欄非黃底儲存格的資料相同時就停止執行VBA動作並顯示該重複值.

煩請先進 大大指導

TEST28.rar (29.58 KB)
收藏 分享

luke

帖子
140 
主題
37 
精華
0 
積分
193 
點名
0  
作業系統
Windows XP 
軟體版本
Office 2007 
閱讀權限
20 
註冊時間
2012-3-28 
最後登錄
2015-7-5 

2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章
2#
發表於 2013-5-26 20:46 | 顯示全部帖子
回復 2# GBKEE


謝謝超版回覆

1.當按下『替代』按鍵去對B欄進行字母的替代時會出現1004錯誤, 是否因執行子VBA即  "資料篩選" 所造成?
1004.jpg
2.如果直接改用下列"替代"語法也許較容易, 但要如何兼顧[N欄資料中與B欄非黃底儲存格的資料相同時就停止執行VBA], 應如何修改VBA?

Columns("B:B").Select
Selection.Replace What:=a, Replacement:=a.Offset(, 2), lookat:=xlPart, ReplaceFormat:=False
(a=L欄)

以上

煩請指導.
TEST28A.rar (26.52 KB)

TOP

luke

帖子
140 
主題
37 
精華
0 
積分
193 
點名
0  
作業系統
Windows XP 
軟體版本
Office 2007 
閱讀權限
20 
註冊時間
2012-3-28 
最後登錄
2015-7-5 

2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章
3#
發表於 2013-5-27 07:11 | 顯示全部帖子
回復 5# Hsieh


回覆H超版

謝謝協助賀幫忙修改
再次感謝


以上

TOP

        靜思自在 : 太陽光大、父母恩大、君子量大，小人氣大。
返回列表 上一主題