Question

我已经搜索并学习了，最后我自己也做了。

这是人们不必寻找它。

此代码保留那里的数据。

这将输入数据在指定表格的单元格P27中＆＃34;原始数据＆＃34;并将其放在每个单元格的开头，该单元格中包含另一个工作表中的数据＆＃34; TemplateSheet＆＃34;。

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

快乐的编码！

编辑**抱歉不能下定决心，如果它在自己的模块中，子工作没有公开真的很好。出于某种原因，我似乎可以将其作为公共子工作。

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

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单元格宏的结束或开始

1 个答案: