一段excel vba代码用于将子表行合并到父表结果：父行1若干
假设你的第一行是标题行从第二行开始
Sub 合并（）
Endcol1 = Sheet1.[iv1].End(xlToLeft).Column
endrow1 = Sheet1.Range(＂B65536＂).End(xlUp).Row
endcol2 = Sheet2.[iv1].End(xlToLeft).Column
endrow2 = Sheet2.Range(＂B65536＂).End(xlUp).Row
Dim A As Range
Dim BiaoYiID As Range
Dim BiaoErID As Range
Dim MyRange1 As Range
Dim BiaoErH As Range
Dim leiji As Long
Sheet2.Activate
Set BiaoErID = Sheet2.Range(Cells(2, 2), Cells(endrow2, 2))
For i = 2 To endrow1
sxh = i + lieji
lieji1 = 0
biaoerneirong = Sheet1.Range(＂B＂ & sxh).Text
Set A = BiaoErID.Find(biaoerneirong, after:=BiaoErID.Cells(BiaoErID.Cells.Count), lookat:=xlWhole)
If Not A Is Nothing Then
biaoertopaddress = A.Address
Do
sxh1 = sxh + lieji1
BIAOERADDRESS = A.Address(RowAbsolute:=False, ColumnAbsolute:=False)
biaoyiaddress = Sheet1.Range(＂B＂ & sxh1).Address(RowAbsolute:=False, ColumnAbsolute:=False)
Sheet1.Select
Sheet1.Range(biaoyiaddress).Offset(1).Activate
ActiveCell.EntireRow.Insert
lieji = lieji + 1
lieji1 = lieji1 + 1
For ii = 0 To endcol2
ActiveCell.Offset(0, ii) = Sheet2.Range(BIAOERADDRESS).Offset(0, ii)
Next
Set A = BiaoErID.FindNext(A)
Loop While Not A Is Nothing And A.Address biaoertopaddress
End If
Next
End Sub
如何写一段VBA代码用以统计一个工作簿中工作表的个数
Sub 工作表数量统计（）
If Sheets(1).Name ＂工作表数量统计＂ Then
yn = MsgBox（＂【工作表数量统计】工作表不存在，建立【工作表数量统计】吗？＂， vbYesNo， ＂建立【工作表数量统计】工作表＂）
If yn = vbYes Then
Sheets.Add(Sheets(1)).Name = ＂工作表数量统计＂
End
End If
End If
Sheets（＂工作表数量统计＂）.Select
Range(＂A1＂).Select
Cells(1, 1).Value = ＂工作表数量为＂
Cells(1, 2).Value = Sheets.Count
End Sub
会建立一个名为工作表统计的工作表，在第一行显示工作表数量
请高手为下面的excel VBA代码编写注释请将注释写的尽量详细些谢
Public m& '定义公共变量m
Sub lqxs()
Dim Arr, i&, Brr(1 To 27, 1 To 23), rq, nl '定义上述几个变量，Brr为27行23列的二维数组
Sheet1.Activate '使sheet1为当前活动的sheet
[c5:z32].ClearContents '清除C5到Z32单元格内的数据
Myr = Sheet2.[a65536].End(xlUp).row '将Sheet2中A列有数据的区域的行数，赋值给Myr变量
Arr = Sheet2.Range(＂a7:t＂ & Myr) '将A7到T列Myr行的区域命名为Arr
For i = 1 To UBound(Arr) '循环
rq = DateSerial(Left(Arr(i, 7), 4), Mid(Arr(i, 7), 5, 2), Right(Arr(i, 7), 2）） '将Sheet2中G列中的数据变为日期格式，如：2013/12/12
nl = DateDiff(＂yyyy＂, rq, Now) '判断Sheet2中G列数据日期的年份是否和今年相同，相同传回0，不相同传回1
Call jd(Arr(i, 13)） '调用jd（)函数
Brr(1, nl + 1) = Brr(1, nl + 1) + 1 '数组Brr(1, nl + 1) 的值加一
Brr(m, nl + 1) = Brr(m, nl + 1) + 1 '数组Brr(1, nl + 1) 的值加一
Next
[d5].Resize(27, 23) = Brr '将数组的值赋值给D5单元格开始，到下面26行右面22列
[c5].Formula = ＂=sum(rc[1]:rc[23])＂ '给C5单元格添加公式， C5=D5+E5+F5++AB5
[c5].AutoFill [c5].Resize(27, 1) '格式填充 将C5的格式填充到C31单元格
[d6].Formula = ＂=sum(r[1]c:r[4]c)＂ '给D6单元格添加公式，D6=D7+D8+D9+D10
[d6].AutoFill [d6].Resize(1, 23) '格式填充，将D6的格式填充到AB31单元格
End Sub
