时间戳

首页 > 解决方案 > 如何在多行/单元格上书写

excel - 如何在多行/单元格上书写

问题描述

我正在尝试编写一个循环宏以从我的活动单元格中的多个连续行（例如 1000）上写入文本。我在下面粘贴了我已经尝试过的内容......我想我可能已经接近了，但我显然错过了一些重要的细节。有人可以帮忙吗？

Sub firstloop()
    Dim Total As Long
    Dim Count As Long
    Total = 0
    For Count = 1 To 1000
        Count = Total + Count
    ActiveCell = "Test"
    ActiveCell.Offset(1, 0) = ActiveCell
    Next Count
End Sub

标签： excelvba

解决方案

值 1000

Cells(1)如果选择了超过 1 个单元格的范围，则用于避免意外结果。

ActiveCell 排除

Sub Values1000()

    Const strText As String = "Text"
    Const cNumber As Long = 1000

    Selection.Cells(1).Offset(1).Resize(cNumber) = strText

End Sub

包括 ActiveCell

Sub Values1000()

    Const strText As String = "Text"
    Const cNumber As Long = 1000

    Selection.Cells(1).Resize(cNumber) = strText

End Sub

或者只是用它们的值替换常量，你就有了一个单行代码。

推荐阅读