123
返回列表 上一主題 發帖

如何可以讓不是"JPM"不顯示出來，也不會留一行空格？

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
125  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-5-31 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
4# 跳轉到 »
發表於 2012-11-12 15:13 | 只看該作者
回復 3# 198188


    你是要把JPM的資料列複製過去不是嗎?
那就錄製進階篩選取得程式碼就好了
若不想多出準則欄位，那用以下代碼
將JPM用錯誤值公式取代
然後複製這些列貼到目標位置
  1. Sub nn()
  2. With 工作表1
  3. .Range("B:B").Replace "JPM", "=1/0", xlWhole
  4. Set Rng = .Range("B:B").SpecialCells(xlCellTypeFormulas, 16)
  5. Rng.Value = "JPM"
  6. Rng.EntireRow.Copy Sheets("JPM").[A2]
  7. End With
  8. End Sub
複製代碼
學海無涯_不恥下問

TOP

198188

帖子
408 
主題
59 
精華
0 
積分
493 
點名
29  
作業系統
win7 
軟體版本
office 2010 
閱讀權限
20 
性別
男 
註冊時間
2012-10-30 
最後登錄
2024-5-31 
3#
發表於 2012-11-12 15:05 | 只看該作者
回復 2# Hsieh

vba 沒有辦法讓它不出現嗎？

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
125  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-5-31 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 2012-11-12 14:52 | 只看該作者
回復 1# 198188


    進階篩選即可
學海無涯_不恥下問

TOP

        靜思自在 : 【停滯不前，終無所得】人都迷於尋找奇蹟，因而停滯不前；縱使時間再多、路再長，也了無用處，終無所得。
123
返回列表 上一主題