如何T
在不手动输入的情况下将内容添加到某一列(包含 10000 个单元格)的每个单元格的内容中?
答案1
非编程方式:
- 在数据列(我将其称为 A)旁边插入一个新列(我将其称为 B)。
- 将列 1 单元格中的值设置为:(
=A1 & "T"
这会在单元格末尾附加一个“T”,如果您在开头需要它,可以写入="T" & A1
) - 抓住突出显示单元格右下角的单元格扩展框(抱歉,我想不起它的正确名称)并向下拖动 10,000 个单元格,然后放开。您的公式将一直复制到下方,单元格引用会自动调整。
- 如果您确实想要原始列中用“T”添加的值,请复制 B 列,然后右键单击 A 列标题并选择“选择性粘贴...”,选择“值”,然后单击“确定”。然后删除 B 列。警告:如果 A 列使用公式显示其数据,这将破坏那些底层公式,只留下值!
答案2
以下是一些 VBA 代码,您可以修改它以满足您的需求。如果您按原样运行它,它会将字母“T”添加到单元格 A1 至 A10 中的任何文本值的末尾。
玩得开心。
Sub ConcatString()
Dim myCell As Variant, myRange As Range, myString As String
Set myRange = Range("A1:A10") 'whatever range you want...
myString = "T" 'whatever string you want...
For Each myCell In myRange
myCell.NumberFormat = "Text" 'convert values to text for string concat...
myCell.Value = myCell.Value & myString 'add string value to cell value...
'reformat cells if you want following above example...
'removing the added string is up to you... ;-)
Next
End Sub
答案3
如果你希望单元格仅包含 T:
- 在该列的第一个单元格中添加一个 T。
- 通过选择该单元格并按 ctrl-C 来复制该单元格。
- 现在选择该列的其余部分:按向下箭头一次,然后按住 Shift 键并按 Page Down,直到到达第 10,000 行。
- 然后按 Ctrl-V 将复制的单元格粘贴到选定的单元格中。
如果您希望在单元格现有内容前面或后面添加“T”:
您需要创建一个引用原始列的公式,然后以与上述类似的方式将其粘贴到临时列中。请参阅 Hellion 的回答以了解如何执行此操作。