[已解决]再次求助(把表格中的公式改成VBA运行)

pengyx

不知道符不符合你的要求，新增了一个表，答案写在新增的表里

ccq000000

pengyx 发表于 2014-2-26 23:52
不知道符不符合你的要求，新增了一个表，答案写在新增的表里

我来比较一下你不介意吧,我肯定会评一个最佳答案的.还有请将这两句代码解释一下(粗体字)
Sub jb()
a = Sheet1.[iv5].End(xlToLeft).Column       ([iv5]是什么意思?)
b = Sheet1.[a65536].End(3).Row  (End(3)是什么意思?)
With Sheet1
For i = 5 To b '行
For j = 12 To a Step 4
If .Cells(i, j + 2) <> "" Then
a1 = a1 + .Cells(i, j)
a2 = a2 + .Cells(i, j + 1)
a3 = a3 + .Cells(i, j + 2)
a4 = a4 + .Cells(i, j + 3)
.Range("f" & i) = a1
.Range("g" & i) = a2
.Range("h" & i) = a3
.Range("i" & i) = a4
.Range("j" & i) = .Range("d" & i) + a1 - a3
.Cells(i, j + 3) = Round((a2 + .Range("e" & i)) * .Cells(i, j + 2) / (a1 + .Range("d" & i)), 2)
End If
Next
a1 = 0: a2 = 0: a3 = 0: a4 = 0       (这是重新赋值吗?)
Next
End With
End Sub

ccq000000

pengyx 发表于 2014-2-26 22:30
是否达到要求，如没有我好来抢金币。达到了我就不下附件了

还想你对程序进行解释一下,特别是下面黑体字部分,谢谢
Sub jb()
a = Sheet1.[iv5].End(xlToLeft).Column       ([iv5]是什么意思?)
b = Sheet1.[a65536].End(3).Row  (End(3)是什么意思?)
With Sheet1
For i = 5 To b '行
For j = 12 To a Step 4
If .Cells(i, j + 2) <> "" Then
a1 = a1 + .Cells(i, j)
a2 = a2 + .Cells(i, j + 1)
a3 = a3 + .Cells(i, j + 2)
a4 = a4 + .Cells(i, j + 3)
.Range("f" & i) = a1
.Range("g" & i) = a2
.Range("h" & i) = a3
.Range("i" & i) = a4
.Range("j" & i) = .Range("d" & i) + a1 - a3
.Cells(i, j + 3) = Round((a2 + .Range("e" & i)) * .Cells(i, j + 2) / (a1 + .Range("d" & i)), 2)
End If
Next
a1 = 0: a2 = 0: a3 = 0: a4 = 0       (这是重新赋值吗?)
Next
End With
End Sub

ccq000000

pengyx 发表于 2014-2-26 22:30
是否达到要求，如没有我好来抢金币。达到了我就不下附件了

还想你对程序进行解释一下,特别是下面黑体字部分,谢谢
Sub jb()
a = Sheet1.[iv5].End(xlToLeft).Column       ([iv5]是什么意思?)
b = Sheet1.[a65536].End(3).Row  (End(3)是什么意思?)
With Sheet1
For i = 5 To b '行
For j = 12 To a Step 4
If .Cells(i, j + 2) <> "" Then
a1 = a1 + .Cells(i, j)
a2 = a2 + .Cells(i, j + 1)
a3 = a3 + .Cells(i, j + 2)
a4 = a4 + .Cells(i, j + 3)
.Range("f" & i) = a1
.Range("g" & i) = a2
.Range("h" & i) = a3
.Range("i" & i) = a4
.Range("j" & i) = .Range("d" & i) + a1 - a3
.Cells(i, j + 3) = Round((a2 + .Range("e" & i)) * .Cells(i, j + 2) / (a1 + .Range("d" & i)), 2)
End If
Next
a1 = 0: a2 = 0: a3 = 0: a4 = 0       (这是重新赋值吗?)
Next
End With
End Sub

ccq000000

pengyx 发表于 2014-2-26 22:30
是否达到要求，如没有我好来抢金币。达到了我就不下附件了

还想你对程序进行解释一下,特别是下面黑体字部分,谢谢
Sub jb()
a = Sheet1.[iv5].End(xlToLeft).Column       ([iv5]是什么意思?)
b = Sheet1.[a65536].End(3).Row  (End(3)是什么意思?)
With Sheet1
For i = 5 To b '行
For j = 12 To a Step 4
If .Cells(i, j + 2) <> "" Then
a1 = a1 + .Cells(i, j)
a2 = a2 + .Cells(i, j + 1)
a3 = a3 + .Cells(i, j + 2)
a4 = a4 + .Cells(i, j + 3)
.Range("f" & i) = a1
.Range("g" & i) = a2
.Range("h" & i) = a3
.Range("i" & i) = a4
.Range("j" & i) = .Range("d" & i) + a1 - a3
.Cells(i, j + 3) = Round((a2 + .Range("e" & i)) * .Cells(i, j + 2) / (a1 + .Range("d" & i)), 2)
End If
Next
a1 = 0: a2 = 0: a3 = 0: a4 = 0       (这是重新赋值吗?)
Next
End With
End Sub

ccq000000

pengyx 发表于 2014-2-26 23:52
不知道符不符合你的要求，新增了一个表，答案写在新增的表里

还想你对程序进行解释一下,特别是下面黑体字部分,谢谢
Sub jb()
a = Sheet1.[iv5].End(xlToLeft).Column       ([iv5]是什么意思?)
b = Sheet1.[a65536].End(3).Row  (End(3)是什么意思?)
With Sheet1
For i = 5 To b '行
For j = 12 To a Step 4
If .Cells(i, j + 2) <> "" Then
a1 = a1 + .Cells(i, j)
a2 = a2 + .Cells(i, j + 1)
a3 = a3 + .Cells(i, j + 2)
a4 = a4 + .Cells(i, j + 3)
.Range("f" & i) = a1
.Range("g" & i) = a2
.Range("h" & i) = a3
.Range("i" & i) = a4
.Range("j" & i) = .Range("d" & i) + a1 - a3
.Cells(i, j + 3) = Round((a2 + .Range("e" & i)) * .Cells(i, j + 2) / (a1 + .Range("d" & i)), 2)
End If
Next
a1 = 0: a2 = 0: a3 = 0: a4 = 0       (这是重新赋值吗?)
Next
End With
End Sub

pengyx

别贴代码出来,代码可能存在问题.我对函数公式不熟,你的要求我猜的.[iv5]表示单元格IV5,End(3)就是END(XLUP)不规范写法,a1 = 0: a2 = 0: a3 = 0: a4 = 0 没有这句会出现累加

ccq000000

pengyx 发表于 2014-2-27 11:28
别贴代码出来,代码可能存在问题.我对函数公式不熟,你的要求我猜的.表示单元格IV5,End(3)就是END(XLUP)不规范 ...

谢谢