Преобразование / преобразование суммы (A1: D1) в A1 + B1 + C1 + D1 в Excel

Хотя вы отметили это функцией «Рабочий лист», вы говорите об использовании VBa в вопросе. Этот VBa делает оба примера, которые вы дали

Option Explicit Sub EeekPirates()  Dim formula As String formula = Range("B4").formula  Dim split1() As String split1 = Split(formula, "(")  Dim temp As String temp = Replace(split1(1), ")", "")  Dim splitty() As String splitty = Split(temp, ":")  Dim firstCol As Integer firstCol = AscW(Left(splitty(0), 1))  Dim secondCol As Integer secondCol = AscW(Left(splitty(1), 1))  Dim firstRow As Integer firstRow = Right(splitty(0), 1)  Dim secondRow As Integer secondRow = Right(splitty(1), 1)  Range("B5").Value = "" ' this could be updated to `B4 = `  Dim i As Integer Dim j As Integer  For j = firstRow To secondRow For i = firstCol To secondCol Range("B5").Value = Range("B5").Value & Chr(i) & j & "+" Next i Next j  Dim length As Integer length = Len(Range("B5").Value) - 1 Range("B5").Value = Left(Range("B5").Value, length)  End Sub 

Просто помните, что отмены нет, поэтому сначала сделайте резервную копию.

Как добавить VBA в MS Office?

Пример с А1: D1

Пример с А1: D2

Согласно комментариям в коде, если вы обновляете с

Range("B5").Value = "" 

в

Range("B5").Value = "B4 = " 

Вы закончите с (в B5)

B4 = A1 + B1 + C1 + D1 

Минимальный рабочий пример с функцией VBA unroll(), которая принимает ссылку на ячейку с одной функцией (например sum, count, min) и раскатывает ее аргумент (список диапазонов) в виде списка отдельных клеток.

Option Explicit  Function rangeText(s As String) As String Dim i As Integer, j As Integer i = Excel.WorksheetFunction.Find("(", s) j = Excel.WorksheetFunction.Find(")", s) rangeText = Mid(s, i + 1, j - i - 1) End Function  Function rangeToList(s As String) Dim rg As Range: Set rg = Range(s) Dim i, j As Integer: Dim c As String For j = 0 To rg.Rows.Count - 1 For i = 0 To rg.Columns.Count - 1 c = c + IIf(c <> "", ",", "") + Chr(64 + rg.Column() + i) + Format(rg.Row() + j) Next i Next j rangeToList = c End Function  Function unroll(x As Range) As String Dim s As String: Dim i, j As Integer: Dim list() As String If Not x.HasFormula Then s = "Not a formula" Else s = rangeText(x.Formula) list = Split(s, ",") s = "" For i = 0 To UBound(list) s = s + IIf(i > 0, ",", "") + rangeToList(list(i)) Next i End If unroll = s End Function 

Примечание: как минимальный пример, он неправильно обрабатывает двухбуквенные ссылки на столбцы.

* Редактировать *

Добавлено Function ColumnNoToNameдля обработки ссылок на ячейки со столбцами> 26.

Option Explicit  Function rangeText(s As String) As String Dim i As Integer, j As Integer i = Excel.WorksheetFunction.Find("(", s) j = Excel.WorksheetFunction.Find(")", s) rangeText = Mid(s, i + 1, j - i - 1) End Function  Function ColumnNoToName(colNo As Integer) As String Dim lo, hi As Integer: Dim s As String lo = (colNo - 1) Mod 26 If colNo > 26 Then hi = (colNo - 1 - lo) \ 26 s = Chr(64 + hi) End If s = s + Chr(64 + lo + 1) ColumnNoToName = s End Function  Function rangeToList(s As String) Dim rg As Range: Set rg = Range(s) Dim i, j As Integer: Dim c As String For j = 0 To rg.Rows.Count - 1 For i = 0 To rg.Columns.Count - 1 c = c + IIf(c <> "", ",", "") _ + ColumnNoToName(rg.Column() + i) _ + Format(rg.Row() + j) Next i Next j rangeToList = c End Function  Function unroll(x As Range) As String Dim s As String: Dim i, j As Integer: Dim list() As String If Not x.HasFormula Then s = "Not a formula" Else s = rangeText(x.Formula) list = Split(s, ",") s = "" For i = 0 To UBound(list) s = s + IIf(i > 0, ",", "") + rangeToList(list(i)) Next i End If unroll = s End Function  Function cellFormula(x As Range) As String cellFormula = x.Formula End Function