作者ccucwc (123)
看板Visual_Basic
標題[VBA ] 請教幾個問題
時間Wed Jan 18 21:44:47 2012
小弟最近開始看書自學VBA要處理Excel
自己在做狀況設想 練習寫時預到一些問題想請教各位大大
1. 無法複製重複選取的資料
我想在一群數字資料裡面挑出含有文字Cell的整行來做複製
Range("B2:K101").SpecialCells(xlCellTypeConstants,xlTextValues).
EntireRow.Select
Selection.Copy
挑是挑出來了 但在複製時
會出現 Error 1004
(指令無法對複數範圍實行)
發現是因為有的行有含兩個以上的文字格子
就沒辦法複製 請問該怎麼解?
1-2 在挑資料的時候有沒有能精確到說我要挑出什麼文字的資料?
譬如挑出寫 "NG" 兩個字的Cell的寫法
2. 在挑出含有文字資料的Cell的行時 我想寫一個MsgBox來顯示挑出了幾行
若接在問題1的Select之下
Dim 行數 As Integer
行數 = Selection.Rows.Count
MsgBox"選取了"& 行數 &"行"
這樣寫怪怪的 實際驗證過後確實是錯的 永遠只會顯示"選取了1行"
請問要怎麼寫才對??
感謝各位
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 223.135.53.202
※ ccucwc:轉錄至看板 ask 01/18 21:52
1F：→ MOONRAKER:使用迴圈。參考以上Darrenpower發的那篇的推文。 01/19 08:29
2F：→ MOONRAKER:判斷內容：if cells(i,j).value="ABCD" then ... 01/19 08:29
3F：→ ccucwc:了解 明天來試試看 感謝哦 01/19 23:10