Использование функции Excel в VB-вопросе

Таким образом, сегодня получена таблица Excel с более чем 20 000 ячеек. Мне пришлось отделять их по имени (когда 14 строк запускают новый клиент) и суммируют столбцы цен. Итак, я написал:

Sub NewSpace() ' ' NewSpace Macro ' ' Keyboard Shortcut: Ctrl+p ' 'create the count variable, initilize it to 17 Dim count As Integer count = 17 While count <= 30003 'add first row Rows(count & ":" & count).Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove 'add second row Rows(count & ":" & count).Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove 'Select cell A in the first created row, write "Total", and format properly Range("A" & count).Select ActiveCell.FormulaR1C1 = "Total" With ActiveCell.Characters(Start:=1, Length:=5).Font .Name = "Calibri" .FontStyle = "Bold" .Size = 11 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ThemeColor = xlThemeColorLight1 .TintAndShade = 0 .ThemeFont = xlThemeFontMinor End With 'Select cell H in the first created row, sum up the values Range("H" & count).Select ActiveCell.FormulaR1C1 = "=sum(H" & (count - 15) & ":H" & (count - 1) & ")" With ActiveCell.Characters(Start:=1, Length:=5).Font .Name = "Calibri" .FontStyle = "Bold" .Size = 11 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ThemeColor = xlThemeColorLight1 .TintAndShade = 0 .ThemeFont = xlThemeFontMinor End With 'increment the counter by 16, start again count = count + 16 Wend End Sub 

Тем не менее, я продолжаю получать ошибку #NAME в этой строке: ActiveCell.FormulaR1C1 = "= sum (H" & (count – 15) & ": H" & (count – 1) & ")"

Все, что мне кажется хорошо, и, честно говоря, я не уверен, что мне нужно изменить.

EDIT: Я также забыл упомянуть, в ошибке #NAME формула показывает правильную, однако она добавляет «к функции, например: = SUM (« H __ »:« H__ »)

Попробуйте ActiveCell.Formula вместо ActiveCell.FormulaR1C1

.FormulaR1C1 предназначен для различного стиля адресации ячеек

 ActiveCell.Formula = "=A1" 

а также

 ActiveCell.FormulaR1C1 = "=R1C1" 

относится к одной и той же ячейке.

Давайте будем гением компьютера.