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

Question

我搜索学习了，最后还是自己做了。

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

此代码保留那里的数据。

这会在指定 Sheet "Original Data" 的单元格 P27 中获取输入数据，并将其放置在另一个工作表 "TemplateSheet" 中具有数据的每个单元格的开头。

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

编码愉快！

编辑** 抱歉，我无法下定决心，如果子模块在自己的模块中，那么它在没有 public 的情况下也能很好地工作。出于某种原因，我似乎可以将其用作 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

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

Add Data to End or Beginning of Excel Cell Macro

excel

vba

insert