高手帮忙用VBA来处理此EXCEL

显示全部楼层 · 2011-4-8 19:56:24

请用VBA来实现此EXCEL文件，其中红色底色不用理，只是用来作执行前后的比较，但执行后红色部分必须是公式。
总的说来是上一层的值是其所有下一层值的总和。即G4=H5+H6+H7+H20...，G7=H8+H14+H19...，...
层次可能会更多，因此程序要考虑，请用计算小数点个数的方式来确定层次（如1为第一层，1.1&1.2&1.3为第二层等）
EXCEL文件在此下载： http://hotfile.com/dl/113651015/b1423cf/Book1.xls.html

千问 · 2011-4-8 19:56:24

Sub aa()With ActiveSheet
sta = 4
irow = .Range("A65536").End(xlUp).Row
For i = sta To irow
If .Cells(i, 7) = "" Then
tmp = Replace(.Cells(i, 1), " ", "") & "."
k = Len(tmp)
Formula1 = ""
For j = sta To irow
If Left(Replace(.Cells(j, 1)

千问 · 2011-4-8 19:56:24

sxpose23:57:33ok了 0:03:00文件 “VBA 根据层数求和，写入求和公式.xls”(36KB)已成功上传至服务器，我们将为您的好友保存 7 天。 -------------Public Sub ssss()'根据层数求和，写入求和公式Dim c1%, c2%, c3%, rs&, re&c1 = 1 '

千问 · 2011-4-8 19:56:24

'Option ExplicitSub 宏1()'' 宏1 Macro' user 记录的宏 2011-4-7''
Sheets("VBA执行前").Select
Columns("A:H").Select
Range("H1").Activate
Selection.Copy

千问 · 2011-4-8 19:56:24

上面的回答没有理解你的问题。你这个分为1、2、3、4……等多层，然后每一层中还有子层，就是树形目录结构。所以关键是要确定层和子层，如1和1.1、1.2、1.3、1.4,1.5等，1=1.1+1.2+1.3+1.4+1.5……，1.3和1.3.1、1.3.2、1.3.3等，以此类推，这样一分析就很简单了，代码写出来不算少的，要先遍历A列，确定总层数要判断A

千问 · 2011-4-8 19:56:24

cctv1102, 请将此句改一下, 使它在有内容(值)时也能运行If .Cells(i, 7) = "" Then