作者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