Excel | 时鹏亮的Blog

替换里输入~*即可替换*号符合[……]

以下宏涉及遍历，数组，删除指定行等内容。

Sub DELCO()
Dim arrString
Dim TemparrString = Array("要删除的关键字", "要删除的关键字2", "要删除的关键字3&quot[......]

VBA-宏定义字符串数组常量不能按以往的经验来定义，需要按既定规则，声明一个变量，不指定任何格式，直接用array来声明其常量。

Dim arrString
arrString = Array("宰", "鸭", "欢[......]

单元格转换为全角：B2=WIDECHAR(A2)
单元格转换为半角：C2=ASC(B2)简繁体转换：选中列或者行，点击审阅-点击对应的简繁体转换按钮即可单元格取长度：B2=LENB(B1) 是否是数字：ISNUMBER(B1)，如果需要强制转换下，可以这[……]

查找-输入关键词-点击“查找全部”，就可以查到所有的数据，在对话框点中第一条，再按住Shift键点最后一条就选中了所有查找出的单元格了，最后在Excel已选中的表格上右击，删除整行，即可。
有人说看不懂，所以加个动图和流程介绍：1.Ctrl+F打开查找窗口[……]

点击单元格，在公式里写入=ROW()，然后复制到每一行即可。复制办法可以查看相关文章[……]

选中你要复制的那一块，鼠标移动到右下角会变成黑色的十字，然后双击即可将此行向下复制到尾部[……]

判断第二列是否包含第一列公式:

=IF(COUNTIF($A:$A,B1),"有","没有")[......]

时鹏亮的Blog