复制空白/空单元格并粘贴特殊添加到整个列（按列标题名称）

Question

我正在尝试编写一个MACRO来执行以下操作（作为大型MACRO项目的一小部分）：

（考虑到每次生成报告时，我都会有不同数量的COLUMNS和ROWS，因此，每次需要处理的列都会有所不同。这就是为什么我需要使用Header名称。）

1. 在现有报告数据中选择一个空白单元格
2. 复制单元格
3. 在标头名称=“ PROC＃/ REV CODE”的COLUMN中选择所有数据（标头除外）
4. 粘贴特殊添加（此步骤是将两个独立的数据集转换为相同的（相等IF）可比较数据类型。
5. 对于头名称=“ FEE RATE”的COLUMN重复整个过程。

记录的MACRO如下所示（需要用未知的EMPTY单元格位置替换“ RANGE（“ K2”）“。需要用列标题NAME替换” Range（“ G2：G4786”）“）：

Sub CopySpacePasteAdd()
Range("K2").Select
Selection.Copy
Range("G2").Select
A
Range("G2:G4786").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlAdd, SkipBlanks:= _
    False, Transpose:=False
Application.CutCopyMode = False

非常感谢您的协助！

Answer 1

编辑；这段代码不是那么漂亮，但是它将文本转换为特定标题下方范围内的数字。

./runyrun.py