Sub a()
    Dim n1, n2 As Integer
    Dim index1, index2 As String
    Dim vlue1, vlue2 As String
    n1 = WorksheetFunction.CountA(Worksheets("sheet1").Columns(1))
    n2 = WorksheetFunction.CountA(Worksheets("sheet2").Columns(1))
    index1 = 1
    Do While index1 <= n1
        vlue1 = Worksheets("sheet1").Cells(index1, 1)
        index2 = 1
        Do While index2 <= n2
            vlue2 = Worksheets("sheet2").Cells(index2, 1)
            If vlue1 = vlue2 Then
                Worksheets("Sheet1").Cells(index1, 1).Copy _
                          Destination:=Worksheets("Sheet3").Cells(index1, 1)
                Worksheets("Sheet1").Cells(index1, 2).Copy _
                          Destination:=Worksheets("Sheet3").Cells(index1, 2)
                Exit Do
            End If
            index2 = index2 + 1
        Loop
        index1 = index1 + 1
    Loop
    MsgBox "操作成功！"
End Sub
复制代码

@echo off&setlocal EnableDelayedExpansion
set line=18
::设置总行数


echo;开始搜索 . . . 
cd.>搜索结果.txt
>>搜索结果.txt findstr/ng:测试2.txt 测试1.txt
>>搜索结果.txt echo %line%:


echo;开始整理 . . . 
cd.>测试结果.txt  
(
for /f "tokens=1* delims=:"  %%a in (搜索结果.txt) do if not "%%a"=="" (
    if not "!var!"=="" (set /a num=%%a-!var!-1) else set /a num=%%a-1
    if not "!num!"=="" for /l %%i in (1,1,!num!) do echo;
    echo;%%b
    set var=%%a
) else (
    set /a num=%line%-!var!-1
    for /l %%i in (1,1,!num!) do echo;
)
)>>测试结果.txt  
echo;
echo;任务结束。
echo;
pause
del 搜索结果.txt
复制代码