我下面有一個表格，我想使用宏（或任何方法）來獲得以下結果：
原表
預期結果
我面臨的問題是 A 列不會是固定數量的行。我想突出顯示 A 列中的行數并自動求和并合并到 B 列中。是否可以使用 Excel 中的 VBA/宏來執行此操作？
另一個例子：我在 A 列有 4 個單元格，想突出顯示 4 個單元格，然后觸發宏。它將自動轉到 B 列并合并 B 列（不是 A 列）中的 4 個單元格，并顯示 4 個突出顯示的單元格的總和。
A 列中的單元格數量不會固定，取決于資料。這就是我嘗試創建宏而不是手動合并和求和的原因。
我有設法合并 A 列中突出顯示的行并合并到 B 列中的代碼。但是我不知道如何進行 SUM。
Sub Macro6()
'
' Macro6 Macro
'
' Keyboard Shortcut: Ctrl l
'
selection.Offset(0, 1).Select
selection.Merge
With selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = Falsex
.ReadingOrder = xlContext
End With
ActiveCell.FormulaR1C1 = "=SUM(RC[-1]:RC[-1])"
End Sub
uj5u.com熱心網友回復：
這應該有效：
Option Explicit
Sub Macro6()
'
' Macro6 Macro
'
' Keyboard Shortcut: Ctrl l
Dim mergeCells As Range
Set mergeCells = Selection.Offset(, 1)
With mergeCells
.Merge
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.Formula = "=SUM(" & Selection.Address & ")"
End With
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/366813.html
上一篇：反向自動過濾字串陣列
下一篇：搜索相關標題并排列在旁邊的表格中