excel - 在每一列中循环一个宏
问题描述
我正在尝试创建一个宏,它将在每一列上执行一个过程,直到特定的列“X”。
下面是我录制的一个宏,然后是我尝试粘贴的一些附加代码以获得所需的结果。
Sub ColumnFill2()
Range(Selection, Selection.End(xlDown)).Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.FormulaR1C1 = "=IF(INDIRECT(ADDRESS(ROW()-1,COLUMN()))=0,"""",INDIRECT(ADDRESS(ROW()-1,COLUMN())))"
Dim lngCol As Long
Dim X As Long
lngCol = ActiveCell.Column + 1
For X = 1 To 57
Cells(X + 1, lngCol) = X
Next X
End Sub
我希望在每个空行上使用包含的公式对每一列进行格式化(电子表格已小计)。目前,它适用于第 1 列,但随后出现问题。我相信这是下一列的起点,每次都应该在第 2 行。
解决方案
推荐阅读
- reactjs - React-router-dom 不渲染任何组件
- ios - UIView SubView UIButton 没有响应触摸
- c#-4.0 - C# 日期格式化结果在前一天
- c++ - PC中的程序与PHONE中的nativescript应用程序之间的数据连接
- batch-file - 为什么添加一个 if 会阻止它工作
- python-3.x - 如何为 Anaconda 安装多处理环境框架?
- python - Keras 自定义方法的 y_pred 形状与模型的输出不同
- c++ - 与局部变量相关的堆栈内存地址
- listview - React-Native 数组比较
- spring-boot - Spring 批处理作业执行两次相同的决策程序