将数据添加到Excel单元宏结束或开始 [英] Add Data to End or Beginning of Excel Cell Macro

问题描述

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

这里是人们不必去寻找它。

此代码保留了该数据。

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

  Sub copyfileaddresstotemplate（）
 
'Application.ScreenUpdating = False 
表格（Original数据）激活
 
 Text = Sheets（原始数据）。范围（P27）
表格（TemplateSheet）激活
 
 Dim我作为范围
范围（范围（A2），范围（A2）。结束（xlDown））。选择
 
为每个i在选择
 i.Value =文本& i.Value 
 Next i 
 End Sub 
  

以下位置文本单元格数据

  Sub copyfileaddresstotemplate（）
 
'Application.ScreenUpdating = False 
表格原始数据）激活
 
文本=表（原始数据）。范围（P27）
表格（TemplateSheet）。激活
 
 Dim i As Range 
 Range（Range（A2），Range（A2）。End（xlDown））。选择
 
对于每个i在选择中
 i .Value = i.Value&文本
下一个i 
 End Sub 
  

快乐编码！

编辑**对不起，不能弥补我的想法，没有公开的子作品，如果它是在自己的模块。由于某种原因，我似乎可以将其作为一个公共小组工作。

编辑**它看起来不一样！是的，因为发布的旧代码会删除现有的数据，如果你第一次看到这一点，不用担心这个工作。

解决方案

  Sub copyfileaddresstotemplate（）
 
'Application.ScreenUpdating = False 
表格（原始数据）。激活
 
文本=表格（原始数据）。范围（P27）
表格（TemplateSheet）。激活
 
 Dim i As Range 
 Range（Range（A2），Range（A2）。End（xlDown））。选择
 
对于每个我在选择
'i.Value = i.Value&文本
 i.Value =文本& i.Value 
 Next i 
 End Sub 
  

I have searched and learned, and in the end i just did it myself.

Here it is so people dont have to look for it.

This code keeps the Data that is there.

This takes input data in cell P27 of Specified Sheet "Original Data" and places it at the beginning of each cell that has Data in another worksheet "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

The Following places text After the cell data

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

Happy Coding!

Edit** sorry cant make up my mind, the sub works without public really well if it is in its own module. I can seem to make it work as a public sub for some reason.

Edit** hey it looks different! yes its because the old code posted would delete existing data, if your seeing this for the first time dont worry this works.

解决方案

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单元宏结束或开始的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！