VBA 代码根据行 ID 循环行并将值复制到列中答案

【问题标题】：VBA code to loop rows based on Row ID and copy values into columnsVBA 代码根据行 ID 循环行并将值复制到列中
【发布时间】：2019-06-09 15:10:55
【问题描述】：

我有来自调查设备的原始现场数据文本文件，我想在新工作表的汇总表中排列；我创建了一个代码，通过将每个文件附加到一个表中来导入多个文本文件，但是原始数据文件包含太多不需要在摘要中的行。在每个文本文件的大约 1000 行输出中，我的汇总表只需要 16 行。数据是根据每个测试编号排列的，因此“第 2 列”中的“ROWID”与报告的指标相同。我想帮助创建宏以循环基于“列 1”作为“TestID”和“列 2”作为“ROWID”的原始数据表，然后将“列 4”中的值复制到摘要表中，示例如下，任何帮助或问题表示赞赏。谢谢

以下示例数据；

Ontario2    5100    FILE NAME & SYSTEM MODEL              : Ontario2.sks  1295 PAVEMENT FRICTION TESTER (UNIVERSAL)     
Ontario2    5101    SOFTWARE VERSION                      : 1.0.6506.22298      
Ontario2    5101A   VCU SOFTWARE VERSION                 : 8000908.601.007a     
Ontario2    5102    TIME                       (hh:mm:ss) : 11:44:13        
Ontario2    5103    DATE                     (mm/dd/yyyy) : 01/22/2019      
Ontario2    0   =================================================================       
Ontario2    0    Test Summary Values                 Value           Units
Ontario2    0   -----------------------------------------------------------------       
Ontario2    5000     Test Number                        1    
Ontario2    5001     Route                                               
Ontario2    5002     Direction                                           
Ontario2    5003     Lane                                                
Ontario2    5004     Event                                               
Ontario2    5005     Test Start DMI                     0    ft
Ontario2    5006     Test Start Time (Hr)               11   hr
Ontario2    5007     Test Start Time (Min)              40   minute
Ontario2    5008     Test Wheel                          Left            
Ontario2    5009     Test Wet/Dry                        WET             
Ontario2    5010     Latitude                            034.0564687° N  
Ontario2    5011     Longitude                           084.3002236° W  
Ontario2    5012     Bearing                            179.9    degrees
Ontario2    6000     Air Temperature                    -3.5     f
Ontario2    6001     Surface Temperature                55.6     f
Ontario2    6002     Left Tire Temperature               not installed   f
Ontario2    6003     Left Nozzle Water Temperature      0    f
Ontario2    6004     Right Tire Temperature              not installed   f
Ontario2    6005     Right Nozzle Water Temperature      not installed   f
Ontario2    6006     Tank 1 Water Temperature           0    f
Ontario2    6007     Tank 2 Water Temperature            not installed   f
Ontario2    6008     Tank 1 Water Level                 325.9    gal
Ontario2    6009     Tank 2 Water Level                  not installed   gal
Ontario2    6010     Data Filter                        5    points
Ontario2    6011     Water Depth                        0.5  mm
Ontario2    6012     Sampling Rate                      100  hz
Ontario2    0   -----------------------------------------------------------------       
Ontario2    0    Right Wheel Peak Values             Value           Units
Ontario2    0   -----------------------------------------------------------------       
Ontario2    6020     Right Traction Force               0    lb
Ontario2    6021     Right Load Force                   0    lb
Ontario2    6022     Right Vehicle Speed                0    mph
Ontario2    6023     Right Test Wheel Speed             0    mph
Ontario2    6024     Right SN                           0    friction
Ontario2    6025     Right Percent Slip                 0    percent
Ontario2    6026     Right Time to Peak Brake Coef      0    seconds
Ontario2    6027     Right Time to Wheel Lockup         0    seconds
Ontario2    6028     Right Flow Rate                    0    gpm
Ontario2    0   -----------------------------------------------------------------       
Ontario2    0    Left Wheel Peak Values              Value           Units
Ontario2    0   -----------------------------------------------------------------       
Ontario2    6040     Left  Traction Force               1029.24  lb
Ontario2    6041     Left  Load Force                   949.52   lb
Ontario2    6042     Left  Vehicle Speed                37.5     mph
Ontario2    6043     Left  Test Wheel Speed             33.1     mph
Ontario2    6044     Left  SN                           108.4    friction
Ontario2    6045     Left  Percent Slip                 11.6     percent
Ontario2    6046     Left  Time to Peak Brake Coef      1.13     seconds
Ontario2    6047     Left  Time to Wheel Lockup         1.37     seconds
Ontario2    6048     Left  Flow Rate                    0    gpm
Ontario2    0   -----------------------------------------------------------------       
Ontario2    0    Right Wheel SN Values               Value           Units
Ontario2    0   -----------------------------------------------------------------       
Ontario2    6060     Right SN Average                   0    friction
Ontario2    6061     Right SN Minimum                   0    friction
Ontario2    6062     Right SN Maximum                   0    friction
Ontario2    6063     Right SN Standard Deviation        0    friction
Ontario2    6064     Right SN Speed Average             0    mph
Ontario2    6065     Right SN Flow Average              0    gpm
Ontario2    0   -----------------------------------------------------------------       
Ontario2    0    Left Wheel SN Values                Value           Units
Ontario2    0   -----------------------------------------------------------------       
Ontario2    6080     Left  SN Average                   84.2     friction
Ontario2    6081     Left  SN Minimum                   78.3     friction
Ontario2    6082     Left  SN Maximum                   89.4     friction
Ontario2    6083     Left  SN Standard Deviation        2.7  friction
Ontario2    6084     Left  SN Speed Average             36.6     mph
Ontario2    6085     Left  SN Flow Average              0    gpm
Ontario2    0   =================================================================       
Ontario2    XXXX    ^^^^ Speed ^^^^     
Ontario2    0   =================================================================       
Ontario2    0    Test Summary Values                 Value           Units
Ontario2    0   -----------------------------------------------------------------       
Ontario2    5000     Test Number                        2    
Ontario2    5001     Route                                               
Ontario2    5002     Direction                                           
Ontario2    5003     Lane                                                
Ontario2    5004     Event                                               
Ontario2    5005     Test Start DMI                     29.36    ft
Ontario2    5006     Test Start Time (Hr)               11   hr
Ontario2    5007     Test Start Time (Min)              41   minute
Ontario2    5008     Test Wheel                          Left            
Ontario2    5009     Test Wet/Dry                        WET             
Ontario2    5010     Latitude                            034.0511896° N  
Ontario2    5011     Longitude                           084.3033369° W  
Ontario2    5012     Bearing                            201.9    degrees
Ontario2    6000     Air Temperature                    -1.6     f
Ontario2    6001     Surface Temperature                49.9     f
Ontario2    6002     Left Tire Temperature               not installed   f
Ontario2    6003     Left Nozzle Water Temperature      0    f
Ontario2    6004     Right Tire Temperature              not installed   f
Ontario2    6005     Right Nozzle Water Temperature      not installed   f
Ontario2    6006     Tank 1 Water Temperature           0    f
Ontario2    6007     Tank 2 Water Temperature            not installed   f
Ontario2    6008     Tank 1 Water Level                 353.3    gal
Ontario2    6009     Tank 2 Water Level                  not installed   gal
Ontario2    6010     Data Filter                        5    points
Ontario2    6011     Water Depth                        0.5  mm
Ontario2    6012     Sampling Rate                      100  hz
Ontario2    0   -----------------------------------------------------------------       
Ontario2    0    Right Wheel Peak Values             Value           Units
Ontario2    0   -----------------------------------------------------------------       
Ontario2    6020     Right Traction Force               0    lb
Ontario2    6021     Right Load Force                   0    lb
Ontario2    6022     Right Vehicle Speed                0    mph
Ontario2    6023     Right Test Wheel Speed             0    mph
Ontario2    6024     Right SN                           0    friction
Ontario2    6025     Right Percent Slip                 0    percent
Ontario2    6026     Right Time to Peak Brake Coef      0    seconds
Ontario2    6027     Right Time to Wheel Lockup         0    seconds
Ontario2    6028     Right Flow Rate                    0    gpm
Ontario2    0   -----------------------------------------------------------------       
Ontario2    0    Left Wheel Peak Values              Value           Units
Ontario2    0   -----------------------------------------------------------------       
Ontario2    6040     Left  Traction Force               880.6    lb
Ontario2    6041     Left  Load Force                   959.17   lb
Ontario2    6042     Left  Vehicle Speed                40.5     mph
Ontario2    6043     Left  Test Wheel Speed             36   mph
Ontario2    6044     Left  SN                           91.81    friction
Ontario2    6045     Left  Percent Slip                 11.2     percent
Ontario2    6046     Left  Time to Peak Brake Coef      0.62     seconds
Ontario2    6047     Left  Time to Wheel Lockup         0.76     seconds
Ontario2    6048     Left  Flow Rate                    29.1     gpm
Ontario2    0   -----------------------------------------------------------------       
Ontario2    0    Right Wheel SN Values               Value           Units
Ontario2    0   -----------------------------------------------------------------       
Ontario2    6060     Right SN Average                   0    friction
Ontario2    6061     Right SN Minimum                   0    friction
Ontario2    6062     Right SN Maximum                   0    friction
Ontario2    6063     Right SN Standard Deviation        0    friction
Ontario2    6064     Right SN Speed Average             0    mph
Ontario2    6065     Right SN Flow Average              0    gpm
Ontario2    0   -----------------------------------------------------------------       
Ontario2    0    Left Wheel SN Values                Value           Units
Ontario2    0   -----------------------------------------------------------------       
Ontario2    6080     Left  SN Average                   53.4     friction
Ontario2    6081     Left  SN Minimum                   51.5     friction
Ontario2    6082     Left  SN Maximum                   55.5     friction
Ontario2    6083     Left  SN Standard Deviation        0.9  friction
Ontario2    6084     Left  SN Speed Average             40   mph
Ontario2    6085     Left  SN Flow Average              28.8     gpm
Ontario2    0   =================================================================       
Ontario2    0   =================================================================       
Ontario2    0    Test Summary Values                 Value           Units
Ontario2    0   -----------------------------------------------------------------       

Ontario2    5000     Test Number                        12   
Ontario2    5001     Route                                               
Ontario2    5002     Direction                                           
Ontario2    5003     Lane                                                
Ontario2    5004     Event                                               
Ontario2    5005     Test Start DMI                     8053.43  ft
Ontario2    5006     Test Start Time (Hr)               11   hr
Ontario2    5007     Test Start Time (Min)              44   minute
Ontario2    5008     Test Wheel                          Left            
Ontario2    5009     Test Wet/Dry                        WET             
Ontario2    5010     Latitude                            034.0483463° N  
Ontario2    5011     Longitude                           084.3183640° W  
Ontario2    5012     Bearing                            41.7     degrees
Ontario2    6000     Air Temperature                    -1.6     f
Ontario2    6001     Surface Temperature                47.6     f
Ontario2    6002     Left Tire Temperature               not installed   f
Ontario2    6003     Left Nozzle Water Temperature      0    f
Ontario2    6004     Right Tire Temperature              not installed   f
Ontario2    6005     Right Nozzle Water Temperature      not installed   f
Ontario2    6006     Tank 1 Water Temperature           0    f
Ontario2    6007     Tank 2 Water Temperature            not installed   f
Ontario2    6008     Tank 1 Water Level                 326  gal
Ontario2    6009     Tank 2 Water Level                  not installed   gal
Ontario2    6010     Data Filter                        5    points
Ontario2    6011     Water Depth                        0.5  mm
Ontario2    6012     Sampling Rate                      100  hz
Ontario2    0   -----------------------------------------------------------------       
Ontario2    0    Right Wheel Peak Values             Value           Units
Ontario2    0   -----------------------------------------------------------------       
Ontario2    6020     Right Traction Force               0    lb
Ontario2    6021     Right Load Force                   0    lb
Ontario2    6022     Right Vehicle Speed                0    mph
Ontario2    6023     Right Test Wheel Speed             0    mph
Ontario2    6024     Right SN                           0    friction
Ontario2    6025     Right Percent Slip                 0    percent
Ontario2    6026     Right Time to Peak Brake Coef      0    seconds
Ontario2    6027     Right Time to Wheel Lockup         0    seconds
Ontario2    6028     Right Flow Rate                    0    gpm
Ontario2    0   -----------------------------------------------------------------       
Ontario2    0    Left Wheel Peak Values              Value           Units
Ontario2    0   -----------------------------------------------------------------       
Ontario2    6040     Left  Traction Force               825.19   lb
Ontario2    6041     Left  Load Force                   946.42   lb
Ontario2    6042     Left  Vehicle Speed                40.6     mph
Ontario2    6043     Left  Test Wheel Speed             37.2     mph
Ontario2    6044     Left  SN                           87.19    friction
Ontario2    6045     Left  Percent Slip                 8.6  percent
Ontario2    6046     Left  Time to Peak Brake Coef      0.59     seconds
Ontario2    6047     Left  Time to Wheel Lockup         0.71     seconds
Ontario2    6048     Left  Flow Rate                    29.3     gpm
Ontario2    0   -----------------------------------------------------------------       
Ontario2    0    Right Wheel SN Values               Value           Units
Ontario2    0   -----------------------------------------------------------------       
Ontario2    6060     Right SN Average                   0    friction
Ontario2    6061     Right SN Minimum                   0    friction
Ontario2    6062     Right SN Maximum                   0    friction
Ontario2    6063     Right SN Standard Deviation        0    friction
Ontario2    6064     Right SN Speed Average             0    mph
Ontario2    6065     Right SN Flow Average              0    gpm
Ontario2    0   -----------------------------------------------------------------       
Ontario2    0    Left Wheel SN Values                Value           Units
Ontario2    0   -----------------------------------------------------------------       
Ontario2    6080     Left  SN Average                   51.5     friction
Ontario2    6081     Left  SN Minimum                   47   friction
Ontario2    6082     Left  SN Maximum                   54.8     friction
Ontario2    6083     Left  SN Standard Deviation        1.8  friction
Ontario2    6084     Left  SN Speed Average             40.2     mph
Ontario2    6085     Left  SN Flow Average              28.9     gpm
Ontario2    0   =================================================================       
Ontario2    0   =================================================================       
Ontario3 - Copy (2) 5100    FILE NAME & SYSTEM MODEL              : Ontario3.sks  1295 PAVEMENT FRICTION TESTER (UNIVERSAL)     
Ontario3 - Copy (2) 5101    SOFTWARE VERSION                      : 1.0.6506.22298      
Ontario3 - Copy (2) 5101A   VCU SOFTWARE VERSION                 : 8000908.601.007a     
Ontario3 - Copy (2) 5102    TIME                       (hh:mm:ss) : 11:44:13        
Ontario3 - Copy (2) 5103    DATE                     (mm/dd/yyyy) : 01/22/2019      
Ontario3 - Copy (2) 0   =================================================================       
Ontario3 - Copy (2) 0    Test Summary Values                 Value           Units
Ontario3 - Copy (2) 0   -----------------------------------------------------------------       
Ontario3 - Copy (2) 5000     Test Number                        1    
Ontario3 - Copy (2) 5001     Route                                               
Ontario3 - Copy (2) 5002     Direction                                           
Ontario3 - Copy (2) 5003     Lane                                                
Ontario3 - Copy (2) 5004     Event                                               
Ontario3 - Copy (2) 5005     Test Start DMI                     0    ft
Ontario3 - Copy (2) 5006     Test Start Time (Hr)               11   hr
Ontario3 - Copy (2) 5007     Test Start Time (Min)              40   minute
Ontario3 - Copy (2) 5008     Test Wheel                          Left            
Ontario3 - Copy (2) 5009     Test Wet/Dry                        WET             
Ontario3 - Copy (2) 5010     Latitude                            034.0564687° N  
Ontario3 - Copy (2) 5011     Longitude                           084.3002236° W  
Ontario3 - Copy (2) 5012     Bearing                            179.9    degrees
Ontario3 - Copy (2) 6000     Air Temperature                    -3.5     f
Ontario3 - Copy (2) 6001     Surface Temperature                55.6     f
Ontario3 - Copy (2) 6002     Left Tire Temperature               not installed   f
Ontario3 - Copy (2) 6003     Left Nozzle Water Temperature      0    f
Ontario3 - Copy (2) 6004     Right Tire Temperature              not installed   f
Ontario3 - Copy (2) 6005     Right Nozzle Water Temperature      not installed   f
Ontario3 - Copy (2) 6006     Tank 1 Water Temperature           0    f
Ontario3 - Copy (2) 6007     Tank 2 Water Temperature            not installed   f
Ontario3 - Copy (2) 6008     Tank 1 Water Level                 325.9    gal
Ontario3 - Copy (2) 6009     Tank 2 Water Level                  not installed   gal
Ontario3 - Copy (2) 6010     Data Filter                        5    points
Ontario3 - Copy (2) 6011     Water Depth                        0.5  mm
Ontario3 - Copy (2) 6012     Sampling Rate                      100  hz
Ontario3 - Copy (2) 0   -----------------------------------------------------------------       
Ontario3 - Copy (2) 0    Right Wheel Peak Values             Value           Units
Ontario3 - Copy (2) 0   -----------------------------------------------------------------       
Ontario3 - Copy (2) 6020     Right Traction Force               0    lb
Ontario3 - Copy (2) 6021     Right Load Force                   0    lb
Ontario3 - Copy (2) 6022     Right Vehicle Speed                0    mph
Ontario3 - Copy (2) 6023     Right Test Wheel Speed             0    mph
Ontario3 - Copy (2) 6024     Right SN                           0    friction
Ontario3 - Copy (2) 6025     Right Percent Slip                 0    percent
Ontario3 - Copy (2) 6026     Right Time to Peak Brake Coef      0    seconds
Ontario3 - Copy (2) 6027     Right Time to Wheel Lockup         0    seconds
Ontario3 - Copy (2) 6028     Right Flow Rate                    0    gpm
Ontario3 - Copy (2) 0   -----------------------------------------------------------------       
Ontario3 - Copy (2) 0    Left Wheel Peak Values              Value           Units
Ontario3 - Copy (2) 0   -----------------------------------------------------------------       
Ontario3 - Copy (2) 6040     Left  Traction Force               1029.24  lb
Ontario3 - Copy (2) 6041     Left  Load Force                   949.52   lb
Ontario3 - Copy (2) 6042     Left  Vehicle Speed                37.5     mph
Ontario3 - Copy (2) 6043     Left  Test Wheel Speed             33.1     mph
Ontario3 - Copy (2) 6044     Left  SN                           108.4    friction
Ontario3 - Copy (2) 6045     Left  Percent Slip                 11.6     percent
Ontario3 - Copy (2) 6046     Left  Time to Peak Brake Coef      1.13     seconds
Ontario3 - Copy (2) 6047     Left  Time to Wheel Lockup         1.37     seconds
Ontario3 - Copy (2) 6048     Left  Flow Rate                    0    gpm
Ontario3 - Copy (2) 0   -----------------------------------------------------------------       
Ontario3 - Copy (2) 0    Right Wheel SN Values               Value           Units
Ontario3 - Copy (2) 0   -----------------------------------------------------------------       
Ontario3 - Copy (2) 6060     Right SN Average                   0    friction
Ontario3 - Copy (2) 6061     Right SN Minimum                   0    friction
Ontario3 - Copy (2) 6062     Right SN Maximum                   0    friction
Ontario3 - Copy (2) 6063     Right SN Standard Deviation        0    friction
Ontario3 - Copy (2) 6064     Right SN Speed Average             0    mph
Ontario3 - Copy (2) 6065     Right SN Flow Average              0    gpm
Ontario3 - Copy (2) 0   -----------------------------------------------------------------       
Ontario3 - Copy (2) 0    Left Wheel SN Values                Value           Units
Ontario3 - Copy (2) 0   -----------------------------------------------------------------       
Ontario3 - Copy (2) 6080     Left  SN Average                   84.2     friction
Ontario3 - Copy (2) 6081     Left  SN Minimum                   78.3     friction
Ontario3 - Copy (2) 6082     Left  SN Maximum                   89.4     friction
Ontario3 - Copy (2) 6083     Left  SN Standard Deviation        2.7  friction
Ontario3 - Copy (2) 6084     Left  SN Speed Average             36.6     mph
Ontario3 - Copy (2) 6085     Left  SN Flow Average              0    gpm
Ontario3 - Copy (2) 0   =================================================================       
Ontario3 - Copy (2) XXXX    ^^^^ Speed ^^^^     
Ontario3 - Copy (2) 0   =================================================================       
Ontario3 - Copy (2) 0    Test Summary Values                 Value           Units
Ontario3 - Copy (2) 0   -----------------------------------------------------

预期输出汇总表；

Test_ID Test    Distance    Time    Wheel   WetDry  Speed   AvgFN   MinFN   MaxFN   StDevFN Temp    GPS_Lat GPS_Long    Notes   TestDate
Ontario2    1   0   11:40    Left            WET            36.6    84.2    78.3    89.4    2.7 55.6     034.0564687° N  084.3002236° W     1/22/2019
Ontario2    2   29.36   11:41    Left            WET            40  53.4    51.5    55.5    0.9 49.9     034.0511896° N  084.3033369° W     1/22/2019

【问题讨论】：

你可以看看答案(stackoverflow.com/questions/24377197/…)
欢迎来到 StackOverflow Gideon，到目前为止您尝试过什么？你自己做了一点研究吗？请注意，这不是免费的编码服务，我们可以帮助您解决编码问题，但您需要显示一些代码以及您的错误在哪里。

标签： excel vba

【解决方案1】：

这里是一个框架代码，可以根据您的要求进行修改。将输入文本文件视为具有多个空格的固定宽度。使用提供的样本数据进行测试。为简单起见，修改了输出表结构如下。

代码直接处理文本文件

Sub test()
Dim Fno As Integer, Ln As String, Arr As Variant
Dim TestNo As String, TestID As String, Wheel As String
Dim Rw As Long
Dim Ws As Worksheet
Dim MyFile As Variant

Set Ws = ThisWorkbook.ActiveSheet

With Application.FileDialog(msoFileDialogFilePicker)
   .AllowMultiSelect = True
   .Filters.Add "Text", "*.Txt", 1

    If .Show <> -1 Then Exit Sub
    Rw = 6

    For Each MyFile In .SelectedItems
    Fno = FreeFile

    Open MyFile For Input As #Fno

    TestID = ""
    TestNo = ""
    Wheel = ""

        Do While Not EOF(Fno)    ' Loop until end of file.
        Line Input #Fno, Ln    ' Read line into variable.
        Ln = Trim(Ln)

        ' multiple spaces are converted to single space for splitting
            Do Until InStr(1, Ln, "  ") = 0
            Ln = Replace(Ln, "  ", " ")
            Arr = Split(Ln, " ")
            Loop

            If UBound(Arr) > 2 Then
                Select Case Arr(1)
                Case "5000"        'TestNo
                    If TestID <> Arr(0) Or TestNo <> Arr(UBound(Arr)) Then
                    Rw = Rw + 1
                    TestID = Arr(0)
                    TestNo = Arr(UBound(Arr))
                    Ws.Cells(Rw, 1).Value = TestID
                    Ws.Cells(Rw, 2).Value = TestNo
                    End If
                Case "5005"   'Distance
                Ws.Cells(Rw, 3).Value = Arr(UBound(Arr) - 1)
                Case "5006"   'Start Hr
                Ws.Cells(Rw, 4).Value = Arr(UBound(Arr) - 1)
                Case "5007"    'Start min
                Ws.Cells(Rw, 5).Value = Arr(UBound(Arr) - 1)
                Case "5008"    'Wheel
                Wheel = Arr(UBound(Arr))
                Ws.Cells(Rw, 6).Value = Arr(UBound(Arr))
                Case "5009"    'WetDry
                Ws.Cells(Rw, 7).Value = Arr(UBound(Arr))
                Case "5010"    'Lat
                Ws.Cells(Rw, 14).Value = Arr(UBound(Arr) - 1) & " " & Arr(UBound(Arr))
                Case "5011"    'Long
                Ws.Cells(Rw, 15).Value = Arr(UBound(Arr) - 1) & " " & Arr(UBound(Arr))
                Case "6001"    'Surface Temp
                Ws.Cells(Rw, 13).Value = Arr(UBound(Arr) - 1)
                End Select

                If Wheel = "Right" Then
                    Select Case Arr(1)
                    Case "6060"          'SN Average
                    Ws.Cells(Rw, 9).Value = Arr(UBound(Arr) - 1)
                    Case "6061"          'SN Min
                    Ws.Cells(Rw, 10).Value = Arr(UBound(Arr) - 1)
                    Case "6062"          'SN MAx
                    Ws.Cells(Rw, 11).Value = Arr(UBound(Arr) - 1)
                    Case "6063"          'SN St Dev
                    Ws.Cells(Rw, 12).Value = Arr(UBound(Arr) - 1)
                    Case "6064"          'Speed Avg
                    Ws.Cells(Rw, 8).Value = Arr(UBound(Arr) - 1)
                    End Select
                Else
                    Select Case Arr(1)
                    Case "6080"          'SN Average
                    Ws.Cells(Rw, 9).Value = Arr(UBound(Arr) - 1)
                    Case "6081"          'SN Min
                    Ws.Cells(Rw, 10).Value = Arr(UBound(Arr) - 1)
                    Case "6082"          'SN MAx
                    Ws.Cells(Rw, 11).Value = Arr(UBound(Arr) - 1)
                    Case "6083"          'SN St Dev
                    Ws.Cells(Rw, 12).Value = Arr(UBound(Arr) - 1)
                    Case "6084"          'Speed Avg
                    Ws.Cells(Rw, 8).Value = Arr(UBound(Arr) - 1)
                    End Select
            End If
            End If
        Loop
Close #Fno

Next MyFile

End With

End Sub

【讨论】：

这太棒了@Ahamed AU，在示例 txt 文件上测试了代码，它就像魅力一样！现在，如果我想使用此代码复制文件夹中的多个文本文件并附加到一个工作表，我该如何修改输入，这样我就不必每次都修改路径？非常感谢！
编辑了选择多个文本文件的答案。不要认为复制或附加是必要的。希望它能解决问题。如果解决了，请点击接受刻度线接受答案。
嗨@Ahamed AU 这解决了我的问题，我只是在第一次导出具有固定宽度列的txt 中添加了代码以保持一致性，感谢您的及时关注并如此迅速地解决了这个问题！
欢迎。你让我开心。
@Ahamed AU ，我要再次寻求您的帮助，此代码工作正常，谢谢；现在一些文本文件格式不同，当上面的 txt 文件缺少第一列时，缺少包含 txt 文件名（不带 .txt）的第一列，我如何修改上面的代码以在 column1 中插入文件名？此外，文件名位于每个 txt 文件的第一行 RowID '5100' 下。如果这与我发布的其他问题相似，我深表歉意。