将数据添加到 Excel 单元格宏的结尾或开头

Question

我已经搜索和学习，最后我只是自己做了。

在这里，人们不必寻找它。

此代码保留那里的数据。

这会在指定工作表“原始数据”的单元格 P27 中获取输入数据，并将其放置在另一个工作表“模板表”中具有数据的每个单元格的开头。

Sub copyfileaddresstotemplate()

    'Application.ScreenUpdating = False
    Sheets("Original Data").Activate

            Text = Sheets("Original Data").Range("P27")
            Sheets("TemplateSheet").Activate

            Dim i As Range
            Range(Range("A2"), Range("A2").End(xlDown)).Select

            For Each i In Selection
            i.Value = Text & i.Value
            Next i
End Sub

以下将文本放在单元格数据之后

Sub copyfileaddresstotemplate()

    'Application.ScreenUpdating = False
    Sheets("Original Data").Activate

            Text = Sheets("Original Data").Range("P27")
            Sheets("TemplateSheet").Activate

            Dim i As Range
            Range(Range("A2"), Range("A2").End(xlDown)).Select

            For Each i In Selection
            i.Value = i.Value & Text
            Next i
End Sub

编码愉快！

编辑**抱歉，我无法下定决心，如果 sub 在其自己的模块中，则在没有 public 的情况下工作得非常好。出于某种原因，我似乎可以让它作为公共潜艇工作。

编辑** 嘿，看起来不一样了！是的，因为发布的旧代码会删除现有数据，如果您第一次看到它，请不要担心它会起作用。

Answer 1

Sub copyfileaddresstotemplate()

    'Application.ScreenUpdating = False
    Sheets("Original Data").Activate

            Text = Sheets("Original Data").Range("P27")
            Sheets("TemplateSheet").Activate

            Dim i As Range
            Range(Range("A2"), Range("A2").End(xlDown)).Select

            For Each i In Selection
            'i.Value = i.Value & Text
            i.Value = Text & i.Value
            Next i
End Sub