blocks|key|4187039|text|试一试|type|unstyled|depth|inlineStyleRanges|entityRanges|data|4187040|Sheets("ProDiver+ored").Range("X"+&+i).Value+=+Application.Sum(Sheets("ProDiver+ored").Range("W1:W"+&+i))|code-block|syntax|javascript|4187041|上面假设您不需要公式来将值相加，只需要计算结果|4187042|entityMap^0|0|0|0^^$0|@$1|2|3|4|5|6|7|K|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|L|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|M|8|@]|9|@]|A|$]]|$1|I|3|-4|5|6|7|N|8|@]|9|@]|A|$]]]|J|$]]

Try

<pre><code>Sheets("ProDiver ored").Range("X" &amp; i).Value = Application.Sum(Sheets("ProDiver ored").Range("W1:W" &amp; i))
</code></pre>

above assumes you do not need the formula to add values up just the result of the calculation

blocks|key|5655432|text|如果您想要像您的示例中那样拥有连接的所有子部分，那么您应该有一个循环：(未测试！)|type|unstyled|depth|inlineStyleRanges|entityRanges|data|5655433|Dim+cell+As+Object
Dim+j+As+Integer
Dim+newString+As+String
Set+newString+=+""
Set+j+=+0
For+cell+in+Sheets("ProDiver+ored").Range("W:W")+'entire+column+W
++++newString+=+newString+%2B+cell.Value
++++Range("X"+&+j).Value+=+newString
++++j+=+j+%2B+1
Next|code-block|syntax|javascript|5655434|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

If you want to have all sub parts of the concatenation like in your example, you should have a loop: (untested!)

<pre><code>Dim cell As Object
Dim j As Integer
Dim newString As String
Set newString = ""
Set j = 0
For cell in Sheets("ProDiver ored").Range("W:W") 'entire column W
 newString = newString + cell.Value
 Range("X" &amp; j).Value = newString
 j = j + 1
Next
</code></pre>

blocks|key|4187067|text|试试这个。我已经测试过了。它工作得很好。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|4187068|Public+Sub+summarizeValue()

++++Dim+row+As+Integer
++++Dim+summarize+As+Integer
++++Dim+dataSheet+As+Worksheet

++++'Set+start+row
++++row+=+1

++++'Getting+data+sheet
++++Set+dataSheet+=+ThisWorkbook.Worksheets("sheetname")

++++'We+need+some+break+point,+so+I+used+"Do+While"+instead+of+"For"+which+is+looping+all+cell.
++++'Loop+column+cells+until+blank
++++Do+While+dataSheet.Range("W"+&+row)+<>+""

++++++++'If+adding+integer,+use+"%2B"+sign
++++++++'If+adding+string,+use+"&"+sign
++++++++summarize+=+summarize+%2B+dataSheet.Range("W"+&+row)

++++++++'Set+summarize+value+into+result+cell
++++++++dataSheet.Range("X"+&+row)+=+summarize

++++++++'Increase+row
++++++++row+=+row+%2B+1

++++Loop

End+Sub|code-block|syntax|javascript|4187069|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

Try with this. I already tested it. It work well.

<pre><code>Public Sub summarizeValue()

 Dim row As Integer
 Dim summarize As Integer
 Dim dataSheet As Worksheet

 'Set start row
 row = 1

 'Getting data sheet
 Set dataSheet = ThisWorkbook.Worksheets("sheetname")

 'We need some break point, so I used "Do While" instead of "For" which is looping all cell.
 'Loop column cells until blank
 Do While dataSheet.Range("W" &amp; row) &lt;&gt; ""

 'If adding integer, use "+" sign
 'If adding string, use "&amp;" sign
 summarize = summarize + dataSheet.Range("W" &amp; row)

 'Set summarize value into result cell
 dataSheet.Range("X" &amp; row) = summarize

 'Increase row
 row = row + 1

 Loop

End Sub
</code></pre>

blocks|key|1870650|text|正如Siddharth建议的(与评论略有不同)：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1870651|这会将公式从X1向下粘贴到数据区域的底部：|1870652|Sub+JustFormula()
++++With+ThisWorkbook.Worksheets("Sheet1")
++++++++.Range(.Cells(1,+24),+.Cells(Rows.Count,+23).End(xlUp).Offset(,+1)).Formula+=+"=SUM($W$1:$W1)"
++++End+With
End+Sub|code-block|syntax|javascript|1870653|对该过程稍作更改，您就可以只使用这些值：|1870654|Sub+JustValues()

++++Dim+MyRange+As+Range

++++With+ThisWorkbook.Worksheets("Sheet1")
++++++++Set+MyRange+=+.Range(.Cells(1,+24),+.Cells(Rows.Count,+23).End(xlUp).Offset(,+1))
++++End+With

++++MyRange.Formula+=+"=SUM($W$1:$W1)"
++++MyRange.Value+=+MyRange.Value

End+Sub|1870655|如果您的工作簿需要一段时间才能计算，您可能希望在.Value+=+.Value行之前放置一个DoEvents。|1870656|entityMap^0|0|0|0|0|0|0^^$0|@$1|2|3|4|5|6|7|Q|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|R|8|@]|9|@]|A|$]]|$1|D|3|E|5|F|7|S|8|@]|9|@]|A|$G|H]]|$1|I|3|J|5|6|7|T|8|@]|9|@]|A|$]]|$1|K|3|L|5|F|7|U|8|@]|9|@]|A|$G|H]]|$1|M|3|N|5|6|7|V|8|@]|9|@]|A|$]]|$1|O|3|-4|5|6|7|W|8|@]|9|@]|A|$]]]|P|$]]

As Siddharth suggested (and slightly changed from the comment):

This will paste the formula from X1 down to the bottom of the data range:

<pre><code>Sub JustFormula()
 With ThisWorkbook.Worksheets("Sheet1")
 .Range(.Cells(1, 24), .Cells(Rows.Count, 23).End(xlUp).Offset(, 1)).Formula = "=SUM($W$1:$W1)"
 End With
End Sub
</code></pre>

A slight change to the procedure and you can have just the values instead:

<pre><code>Sub JustValues()

 Dim MyRange As Range

 With ThisWorkbook.Worksheets("Sheet1")
 Set MyRange = .Range(.Cells(1, 24), .Cells(Rows.Count, 23).End(xlUp).Offset(, 1))
 End With

 MyRange.Formula = "=SUM($W$1:$W1)"
 MyRange.Value = MyRange.Value

End Sub
</code></pre>

If your workbook takes a while to calculate you may want to put a DoEvents before the .Value = .Value line.

Ok this is what I tried with:

<pre><code>Sheets("ProDiver ored").Range("X" &amp; i).Value = Sheets("ProDiver ored").Range("W2:W" + i).Value
</code></pre>

But it doesn't work.

What I am trying to do is to make the macro take the <code>W1:Wx</code> and summarize these on the X column.

It should be looking like this in other words:

<pre><code>X1 = W1 

X2 = W1 + W2

X3 = W1 + W2 + W3

X4 = W1 + W2 + W3 + W4
</code></pre>

And so on.

Can you guys direct me on how to do this? I want it for a VBA Excel macro of course.

How do you summarize another column in a progressive way?

翻译质量差，导致语言生硬或混乱。

没有提供实际的解决方法或示例。

解答不清晰，无法理解或解决问题。

页面排版不美观，阅读体验差。

文章

问答

视频

学习中心

腾讯云实验室

直播

竞赛

腾讯云代码分析专区

腾讯iOA零信任安全管理系统专区

腾讯云架构师技术同盟交流圈

腾讯云数据库专区

腾讯云顾问专区

腾讯云原生专区

腾讯混元专区

腾讯云TCE专区

腾讯云Lighthouse专区

腾讯云HAI专区

腾讯云Edgeone专区

腾讯云存储专区

腾讯云智能专区

腾讯轻联专区 

腾讯云开发专区

TAPD专区

腾讯轻量云游戏服专区

腾讯云最具价值专家

腾讯云架构师技术同盟

腾讯云创作之星

腾讯云开发者先锋

腾讯云代码助手

云原生构建

TAPD 敏捷项目管理

Cloud Studio

SDK中心

API中心

命令行工具

涵盖代码开发、场景应用、自动测试全流程，助你从零构建专属AI助手

一站式MCP教程库，解锁AI应用新玩法

好的，这是我尝试过的：Sheets("ProDiver ored").Range("X" & i).Value = Sheets("ProDiver ored").Range("W2:W" + i).Value但它不起作用。我要做的是让宏获取W1:Wx，并在X列中汇总这些内容。换句话说，它应该是这样的：X1 = W1 ...

问你如何以渐进的方式总结另一个专栏？
EN

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问你如何以渐进的方式总结另一个专栏？EN