我正在尝试创建一个宏,该宏将在每个列上执行一个过程,直到特定的列“ 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上有效,但是随后出现问题。 我认为这是下一列的起点,每次应在第二行中。

  ask by hassettk translate from so

本文未有回复,本站智能推荐:

2回复

循环增加一列

我面临着一个看起来很奇怪的问题。 我想遍历目录中的所有文件以计算文件数量(对i = 1进行文件编号)(确定),打开每个文件(确定)并将范围复制到母版。我的问题是我希望在每个文件之后,我的粘贴目标都将在右侧的步骤上移动(使用我的循环i)。由于我不知道原因,它无法正常工作,我认为它是因为我没有放
1回复

如果然后VBA宏-如果另一列的内容=100%,则更新一列

我有一个工作簿,“结果”为工作表3,这是我要使用的工作表。 我尝试了一些公式来尝试添加宏以执行以下操作: 我的G栏有百分比。 然后,在第I列中,我希望有一个结果为TRUE / FALSE,其中G的内容等于100%。 G列的格式设置为带有两位小数的百分比。 一些注意事项:我的第一行
1回复

为顶行和最后一列着色的宏

我是宏 vba 的新手我希望宏将黄色添加到顶行,即标题行和最后一列是空白的。 宏应该为最后一列着色,该列仅在相应行有数据时才为空白,而不是整列。 下面是我的代码...我收到错误“错误代码 1004 应用程序定义或对象定义” Excel 屏幕以供参考。 宏应该为顶行标题和最后一列着色......最
1回复

VBAexcel宏跳过最后一列

我必须从 excel 表(范围)创建一个 csv。 将其另存为 csv 文件不是解决方案,因为我的应用程序需要在每个单元格设置引号的 csv。 我的表的范围是 A1:P9998,其中 A1:P1 是带有标题的行。 我有以下代码来完成这项工作: 这不能正常工作,完整的列 P 没有引号,我无法找出原因。
2回复

宏复制并粘贴5个最后一列问题

我刚刚编写了一个宏来查找带有数据的最后5列,然后在最后一列之前复制并粘贴它。 我在一个虚拟文档中构建了这个宏,所以不要破坏我当前的文件,并使用以下代码使宏工作正常: 当我剪切并粘贴上面的if如果在我的实际工作文件中,如果数据选项卡名称是“Sheet2”,它可以正常工作,但是如果我将选项卡名
3回复

Excel:查找和替换宏-仅一列

我已经编写了一些宏来将一堆数据格式化为相同的可接受格式,我们从中获取的程序拒绝将数据拉到我们想要的范围,但理论上在Excel中更改并不难。 设置运行的方式是为修改器设置单独的宏,然后是“全部运行”宏,只调用它们。 目前我有: 但是当我运行它时,它会从整个工作表中删除Ms并且一列需要M
1回复

跨列的VBA循环宏

下午好, 我有一个运行多个宏的工作表。 模块#1在第3行的各列中列出了主目录的子文件夹。(正确工作) 模块#2根据关键字从模块#1的结果文件夹中列出了特定的子文件夹,结果打印到第4行。尽管我无法根据行3上的可重复单元格引用。代码正在执行的操作是将正确的结果返回到A4,然后将相同的结果
2回复

Excel宏用于EACH循环复制粘贴不同工作表中的相同范围并粘贴到下一列

我在工作簿中有几个工作表(工作表A,工作表B,工作表C)。 我想从每个工作表中复制相同的范围并将它们粘贴到另一个工作簿的工作表中,每个工作表都在下一列中。 我知道如何编写要复制的代码,但更难的部分是粘贴。 这就是我的想法: