使用字母

Question

所以我有一系列细胞，我想复制粘贴，然后更改其中几个细胞的值。我会添加一个部分的图片，但我还没有足够的声誉......但基本上它是左下方的1-5，而A-E连续排在右边。

现在，我使用此代码复制粘贴它们，然后将字母更改为字母表中的下一个。

Range("B9:G16").Select
Selection.Copy
Range("B18").Select
ActiveSheet.Paste
Range("C19").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "Seg. "
Range("C19").Select
ActiveCell.FormulaR1C1 = "Seg. F"
Range("D19").Select
ActiveCell.FormulaR1C1 = "Seg. G"
Range("E19").Select
ActiveCell.FormulaR1C1 = "Seg. H"
Range("F19").Select
ActiveCell.FormulaR1C1 = "Seg. I"
Range("G19").Select
ActiveCell.FormulaR1C1 = "Seg. J"
Range("C25").Select

此宏被分配给“添加第二部分”按钮。 “添加第三部分”按钮执行相同的操作，向下移动并在字母表中向前移动五个字母。

Range("B18:G25").Select
Selection.Copy
Range("B27").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=7
Range("C28").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "Seg. K"
Range("D28").Select
ActiveCell.FormulaR1C1 = "Seg. L"
Range("E28").Select
ActiveCell.FormulaR1C1 = "Seg. M"
Range("F28").Select
ActiveCell.FormulaR1C1 = "Seg. N"
Range("G28").Select
ActiveCell.FormulaR1C1 = "Seg. O"
Range("K25").Select

我希望将其简化为一个按钮，只需对单元格进行计数，将复制的部分向下移动，然后自动将字母更改为集合中的下五个。这样你可以添加任意数量的部分，而不必为每个部分添加一堆按钮。

我知道有一种方法可以使用Base26toBaseLetter，我很乐意摆脱“Seg”。并且只有那一行中的字母。我对语法感到困惑。

注意：底行有公式计算平均值。我还需要保留新的部分。

谢谢大家！