将相同的文本附加到Excel中的列中的每个单元格

时间:2010-07-05 12:42:31

标签: excel excel-2007

如何将文本附加到Excel中列中的每个单元格?我需要在末尾添加一个逗号(“,”)。

示例:

email@address.com变成email@address.com,

数据样本:

m2engineers@yahoo.co.in
satishmm_2sptc@yahoo.co.in
threed_precisions@rediffmail.com
workplace_solution@yahoo.co.in
threebworkplace@dataone.in
dtechbng@yahoo.co.in
innovations@yahoo.co.in
sagar@mmm.com
bpsiva@mmm.com
nsrinivasrao@mmm.com
pdilip@mmm.com
vvijaykrishnan@mmm.com
mrdevaraj@mmm.com
b3minvestorhelpdesk@mmm.com
sbshridhar@mmm.com
balaji@mmm.com
schakravarthi@mmm.com
srahul1@mmm.com
khramesh2@mmm.com
avinayak@mmm.com
rockindia@hotmail.com

11 个答案:

答案 0 :(得分:181)

看看这是否适合您。

  • 您的所有数据都在A栏(从第1行开始)。
  • 在B栏第1行中,输入= A1&“,”
  • 这将使单元格B1等于A1并附加逗号。
  • 现在选择单元格B1并从单元格的右下方向下拖动所有行(这会复制公式并使用相应的列A值。

就是这样!

答案 1 :(得分:18)

这是一个简单的“&”功能

=cell&"yourtexthere"

例子 - 你的细胞说米奇,你想要米老鼠。米奇在A2。在B2中,键入

=A2&" Mouse"

然后,复制并“粘贴特殊”值。

B2 now reads "Mickey Mouse"

答案 2 :(得分:16)

简单......

=CONCATENATE(A1,",")

示例:如果是A1单元格中的email@address.com,则写入另一个单元格 = CONCATENATE(A1,“,”)

email@address.com在此公式之后,您将获得 email@address.com,

删除公式:复制该单元格并使用 alt + e + s + v 或粘贴特殊值。

答案 3 :(得分:6)

如果您只想为显示目的添加字符,则无需使用额外的列或VBA。

this post所示,您需要做的就是:

  1. 选择要将格式应用于
  2. 的单元格
  3. 点击Home标签
  4. 点击Number
  5. 选择Custom
  6. Type文本框中,将数字零置于所需的任何字符内,输入所需的格式。
  7. 用于格式化的

    示例

    • 如果您希望单元格保留值120.00读取$120K,请键入$0K

答案 4 :(得分:4)

非常简单....你可以使用连接函数将所有这些放在一个单元格中

=CONCATENATE(A1,", ",A2,", ", and so on)

答案 5 :(得分:2)

突出显示列,然后按cntrl + f。 查找和替换 找到“.com” 替换“.com”,

然后一个用于.in 查找和替换 找到“.in” 替换“.in”,

答案 6 :(得分:1)

选择单元格范围,键入值并按Ctrl + Enter。 当然,如果您想手动执行此操作,这是正确的。如果您想在代码中执行此操作,请更具体地说,您使用的是什么。

答案 7 :(得分:1)

我刚写了另一个答案: 您可以使用您的示例使用表单来调用它:appendTextToRange "[theRange]", ","

Sub testit()
appendTextToRange "A1:D4000", "hey there"
End Sub
Sub appendTextToRange(rngAddress As String, append As String)
Dim arr() As Variant, c As Variant
arr = Range(rngAddress).Formula
For x = LBound(arr, 1) To UBound(arr, 1)
    For y = LBound(arr, 2) To UBound(arr, 2)
        Debug.Print arr(x, y)
        If arr(x, y) = "" Then
            arr(x, y) = append
        ElseIf Left(arr(x, y), 1) = "=" Then
            arr(x, y) = arr(x, y) & " & "" " & append & """"
        Else
            arr(x, y) = arr(x, y) & " " & append
        End If
    Next
Next
Range(rngAddress).Formula = arr
End Sub

答案 8 :(得分:0)

将文本/值放在第一个单元格中,然后复制单元格,标记整个列并“粘贴”复制的文本/值。

这适用于Excel 97 - 对不起我身边没有其他版本......

答案 9 :(得分:0)

其中最简单的方法是使用“数据”标签下的“ Flash填充”选项。

  1. 将原始输入列保留在左侧(例如A列),而在其右侧添加一个空白列(例如B列,此新列将被视为输出)。
  2. 只需用实际预期输出填充B列中的几个单元格即可。在这种情况下:

         m2engineers@yahoo.co.in, 
         satishmm_2sptc@yahoo.co.in,
    
  3. 然后选择您要输出的列范围以及您手动填充的前几个单元格.....然后做魔术...单击“ Flash Fill”。

    < / li>

它基本上了解与输入相对应的输出模式,并填充空白单元格。

答案 10 :(得分:-1)

在一个单元格中键入,复制该单元格,选择要填充的所有单元格,粘贴。

或者,在一个单元格中键入,在该单元格的右下角选择黑色方块,向下拖动。