0

所以我现在已经搜索了几个小时，似乎无法找到解决我问题的方法。我有一个包含 13000 多行的列表，但我已将其自动过滤到大约 200 行，现在我想要的是，假设，由于过滤器，列表顶部现在显示为 A1，然后直接显示为 A28。我希望将单元格 A28 和 B28 中的文本连接起来并放入单元格 J28 中。我可以轻松地手动执行此操作，但是当我记录宏的操作时，会出现此代码

    Sub concat()
'
' concat Macro
'

'
    ActiveCell.FormulaR1C1 = "=RC[-9]&RC[-8]"
    Range("J28").Select
    Selection.FillDown
End Sub

现在我不确定是什么

"=RC[-9]&RC[-8]"

意味着但是当我运行宏时，它不会产生我想要的结果。

如果我不清楚这个问题，我提前道歉，但我真的需要帮助。

谢谢！

瓦伦

4

1 回答 1

0

这将起作用，但您必须先关闭过滤器：

Sub FillDown()
Dim ws As Excel.Worksheet
Dim LastRow As Long

Set ws = ActiveSheet
With ws
    LastRow = ws.Range("A" & .Rows.Count).End(xlUp).Row
    .Range("J2:J" & LastRow).FormulaR1C1 = "=RC[-9]&RC[-8]"
End With
End Sub

我不清楚为什么您不只是关闭过滤器并根据需要手动复制公式。

于 2013-05-14T14:07:17.760 回答