整理合并各工作表的某行（列）到一个工作表

应用于这样一种场景——现在有一份有100个工作表的Excel文件，这100个工作表中都有一个名称为“资产负债率”的行数据，每个工作表对应一个公司名称。

需求：将每个公司的“资产负债率”数据全部整理到新建的工作表。VBA代码如下：

第一步：合并行数据：

Sub 合并行数据()
'
'
Dim i As Byte           '定义一个Byte类型的变量，名称为i
    For i = 1 To Worksheets.Count - 1 Step 1      'i从1到“工作表的数量-1”循环
    Sheets(i).Select                 '选择第i个工作表（从左往右数）
    Rows("44:44").Select             '选择第44行整行单元格
    Selection.Copy                   '复制选中的单元格
    Sheets("Sheet3").Select          '选择名称为"Sheet3"的工作表
    Range("a" & i).Select            '粘贴到Ai单元格
    ActiveSheet.Paste
    Next i
    
End Sub

第二步：合并公司名称

Sub 合并公司名称()
'
'Dim i As Byte                                           '定义一个Byte类型的变量，名称为i
    Col