肿么在新的Excel表格里 插入新的整行来自和之前格式一样的整行。。360问答。

12345678910111213141516171819Sub LKJLK()    ***.screenupdating = False    ***.open Filename:=***.path & "***.xls"    Set tbs = ***.sheets(1)    fa = tbs.[b1]    Set wb = ActiveWorkbook    For st = 1 To wb.***.count        Set ss = Sheets(st)        xr = ss.[a65536].End(3).Row        For x = 1 To xr            Set ff = ***.range(***.cells(x, 1), ***.cells(x, "iv")).F独因失ind(What:=fa, MatchCase:=True)            If Not ff Is Nothing Then            ***.rows(x & ":" & x).Copy ***.range("a" & tbs.[a65536].End(3).Row + 1)            End If        N跳触宪ext    Next    ***.close    ***.screenupdating = TrueEnd Sub大概就这样吧，没附件，A/县技植握河家齐甲呀获B两个工作薄放在同一目录下，代码放在A工作薄中，工作薄的第一个工作表的B1单元格内容为要查找的内容，B工作薄为数据源

追问 : 谢谢，运行了一下，大小写可以，部分匹配也可以，但是唯一不足的是把结果显示在sheet1了，我想把结果显示在sheet2，不知可否满足。
追答 : Set tbs = ThisWorkbook.Sheets(1)把这句的1改成2就行了

建议用辅助列吧
傍边加一列辅助列吧
=COUNTIFS(A:A,A1,B:B,B1,C:C,C1)
判断每行重复次数
然后选中从A1到数据区域右下角（不要选到辅助列）
设置条件格式用公式确定
=$D1=3

图片供参考：

双击进入单元格，选中内容，然后打开格式---单元格----字体----选添加的下划线样式

excel可以显示行号的，点击行号就可以选中整行
实在要用编门固shift+空格的话，切换到没有输入法的状态下就可以了追答 : 准确来说是 ：中文(简体)-美式键盘
只要切换到这个输入法就可以

操作方法：

1、用Exce杨距我苏洋l打开需要调整的文件。

2、选中要移动的数据整行或整列。如图。

3、选中数据后，将光标移至该列左右任意一侧边缘，呈现四个箭头组成的图标形状。
4、当出现四个箭头组成的图标形状时，同时按住Shift键不放频京音要脱决若引至养，拖动鼠标至待插入位置，松开鼠标左键完成。（注意：松开鼠标左键之前，不能先放开Shift键）。如图。

5、这时数据就进行移动到想要的位置了，行的数据调整也和这个方法相同，同样选中整行。如图。

6、这样就完成了在excel工作表中把整行或多行上移或下移。

先插入一行，选择空行的上一行行标，选中此行，点击格式刷，再刷空行的行标即可复制上行格式。
或者插入空行，复制上行，在空行第一个单元格中右键-选择性粘贴-格式即可。