在Excel中批处理string连接
我在Excel中有几百个单元格，我想连接成一个单一的string。 有没有一个简单的方法来做这个比通过他们一个接一个手动inputCONCATENATE(A1, A2, ....) ？
CONCATENATE(A1:A255)不起作用。
*在新标签中，在单元格A1中键入A1，
*在A2单元格中inputA2
*使用填充序列填写A栏中的值
在单元格B1中inputA1
-
在单元格B2中使用这个forumal
= B1＆ “” ＆A2
-
复制公式。
复制并粘贴值以收集您创build的值的string。
A1 A1 A2 A1,A2 A3 A1,A2,A3 A4 A1,A2,A3,A4 A5 A1,A2,A3,A4,A5 A6 A1,A2,A3,A4,A5,A6 A7 A1,A2,A3,A4,A5,A6,A7 A8 A1,A2,A3,A4,A5,A6,A7,A8 A9 A1,A2,A3,A4,A5,A6,A7,A8,A9 A10 A1,A2,A3,A4,A5,A6,A7,A8,A9,A10
按Alt-F11 ，插入新模块，粘贴代码如下。
Public Function concatRange(data As Range, Optional sep As String = "") As String Dim ret As String Dim sep2 As String ret = "" sep2 = "" For Each cell In data ret = ret & sep2 & cell.Value sep2 = sep Next cell concatRange = ret End Function
用法：
=concatRange(A8:D11;", ") 'OS with ; list separator =concatRange(A8:D11,", ") 'OS with , list separator or in a macro code
要么
=concatRange(A8:D11)
在这里看到这个博客文章： http : //www.dullsharpness.com/2011/11/14/excel-vba-range-to-csv-range2csv-function/
您可以像这样使用它，例如使用pipe道分隔符：
=Range2Csv(A1:A255,"|")
使用Alt+F11访问您的VBA编辑器并将其放入模块中。
代码摘录在这里：
Option Explicit '********************************************** '* PURPOSE: Concatenates range contents into a '* delimited text string '* '* FUNCTION SIGNATURE: Range2Csv(Range, String) '* '* PARAMETERS: '* Range - the range of cells whose contents '* will be included in the CSV result '* String - delimiter used to separate values '* (Optional, defaults to a comma) '* '* AUTHOR: www.dullsharpness.com '* '* NOTES: [add'l notes removed for brevity] '* '********************************************** Public Function Range2Csv(inputRange As Range, Optional delimiter As String) Dim concattedList As String 'holder for the concatted CSVs Dim rangeCell As Range 'holder cell used in For-Each loop Dim rangeText As String 'holder for rangeCell's text 'default to a comma delimiter if none is provided If delimiter = "" Then delimiter = "," concattedList = "" 'start with an empty string 'Loop through each cell in the range to append valid contents For Each rangeCell In inputRange.Cells rangeText = rangeCell.Value 'capture the working value 'Only operate on non-blank cells (ie Length > 0) If Len(rangeText) > 0 Then 'Strip any delimiters contained w/in the value itself rangeText = WorksheetFunction.Substitute(rangeText, delimiter, "") If (Len(concattedList) > 0) Then 'prepend a delimiter to the new value if we 'already have some list items concattedList = concattedList + delimiter + rangeText Else 'else if the list is blank so far, 'just set the first value concattedList = rangeText End If End If Next rangeCell 'Set the return value Range2Csv = concattedList End Function
（a1，a2，a3，a4，a5，a6，a7，a8，a9，a10，a11，a12，a13，a14，a15，a16，a17，a18，a19，a20，a21，a22，a23，a24， a25，a26，a27，a28，a29，a30，a31，a32，a33，a34，a35，a36，a37，a38，a39，a40，a41，a42，a43，a44，a45，a46，a47，a48， a51，a52，a53，a54，a55，a56，a57，a58，a59，a60，a61，a62，a63，a64，a65，a66，a67，a68，a69，a70，a71，a72，a73，a74， a75，a76，a77，a78，a79，a80，a81，a82，a83，a84，a85，a86，a87，a88，a89，a90，a91，a92，a93，a94，a95，a96，a97，a98， a100，a101，a102，a103，a104，a105，a106，a107，a108，a109，a110，a111，a112，a113，a114，a115，a116，a117，a118，a119，a120，a121，a122，a123，a124， a126，a127，a128，a129，a130，a131，a132，a133，a134，a135，a136，a137，a138，a139，a140，a141，a142，a143，a144，a145，a146，a147，a148，a149， a150，a151，a152，a153，a154，a155，a156，a157，a158，a159，a160，a161，a162，a163，a164，a165，a166，a167，a168，a169，a170，a171，a172，a173，a174， 175，176，177，178，177，180，181， a184，a185，a186，a187，a188，a189，a190，a191，a192，a193，a194，a195，a196，a197，a198，a199，a200，a201，a202，a203，a204，a205，a206，a207，a208 a209 a210 a211 a212 a213 a214 a215 a216 a217 a218 a219 a220 a221 a222 a223 a224 a225 a226 a227 a228 a229 a230 a231 a232 a233 a234，a235，a236，a237，a238，a239，a240，a241，a242，a243，a244，a245，a246，a247，a248，a249，a250，a251，a252，a253，a254，a255）
PowerShell吧！
"concatenate(a$((1..255) -join ', a'))" | clip
打开文本文件复制并粘贴
“要快速select单元格，可以按CTRL，然后单击要包含在连接函数中的单元格。例如，select单元格Type = concatenate（在公式栏中按住CTRLbutton并单击要包含的单元格。键入）在公式栏中，然后按Enter键“
如果需要，这个VBA函数将连接单元格的内容和一个可选的分隔符。 将其复制到标准模块中：
Option Explicit Function Concat(CellRange As Range, Optional Delimiter As String) As String ' this function will concatenate a range of cells and return the result as a single string ' useful when you have a large range of cells that you need to concatenate ' source: http://chandoo.org/wp/2008/05/28/how-to-add-a-range-of-cells-in-excel-concat/ Dim retVal As String, dlm As String, cell As Range retVal = "" If Delimiter = Null Then dlm = "" Else dlm = Delimiter End If For Each cell In CellRange If CStr(cell.Value) <> "" And CStr(cell.Value) <> " " Then retVal = retVal & CStr(cell.Value) & dlm End If Next If dlm <> "" Then retVal = Left(retVal, Len(retVal) - Len(dlm)) End If Concat = retVal End Function
如果你正在寻找一个纯粹的Excel方法（即没有VBA），那么James Jenkins提出的方法是最好的。 如果你很高兴使用VBA，那么打开VBA编辑器，添加一个新的模块，并添加下面的代码：
Option Explicit Public Function JoinText(cells As Variant,Optional delim_str As String) As String If cells.Columns.count < cells.Rows.count Then JoinText = Join(WorksheetFunction.Transpose(cells), delim_str) Else JoinText = Join(WorksheetFunction.Transpose(WorksheetFunction.Transpose(cells)), delim_str) End If End Function
要轻松打开VBA编辑器，请按Alt-F11。 要插入模块，请右键单击“项目”窗口中列出的工作簿。
该函数从excel中调用如下：
=JoinText(A1:C1)
如果你想添加一个分隔符（例如逗号）：
=JoinText(A1:C1,",")
使用转置function的目的是将二维数组“单元格”转换为一维数组。 对此的共鸣是VBA函数Join只接受一个1d数组。 使用其中两个的原因是，如果JoinText正在查看一行单元格（它仍然是一个二维数组），那么第一次调用转置，将这个二维行数组转换为二维列数组，第二个调用将其转换为一个1d数组。
我最喜欢的方法是剪切和粘贴到允许正则expression式的编辑器的值，然后我只是删除选项卡（或空格）与查找和replace我当前的select。
你也可以用它来插入逗号，空格或任何你想要的。
这比键入=concatenate(A1,",","A2",",",......)
这不是纯粹的Excel，但有一个简单的方法来与Word做到这一点。
- select要连接的单元格并将其复制/粘贴到Word中。 这将创build一个表。
- select整个表格。
- 将表格转换为文本。 使用段落标记（或别的不出现在您的文字）作为分隔符。
- select所有的文字。
- 使用replace删除段落标记。 （在“查找内容”框中，input^ p。将“replace为”框留空。）
如果您有Excel 2016，则可以使用数组公式：
input
= CONCAT（A1：A255）
进入单元格，然后按
[CTRL] + [SHIFT] + [input]
您想要协调的值从工作表的第2行第3列开始
Sub GOWN() roww = 2 Do While cells(roww, 2) <> "" aa = cells(roww, 3) dd = dd & aa & "," roww = roww + 1 Loop cells(roww + 1, 3) = dd End Sub
只需在一个连接中添加你的分隔符：
=concatenate(A1, ",")
然后复制所有的连接，将它们粘贴为值。 然后复制这些值，将它们粘贴在一个换位符中。 然后复制Transposed值并将其粘贴到文字编辑器中。 做一个find的定界符和值之前的空格，并做一个替代只是删除。 这应该给你一个串联的所有值与一个deliminator。 这比其他选项容易得多。
从这个网站无耻复制：
- select你需要结果的单元格。
- 进入配方栏并input…“= A1：A5”
- select整个公式并按F9（将公式转换为值）。
- 从两端删除大括号。
- 添加= CONCATENATE（到文本的开始，并用圆括号结束）。
- 按Enter键。
这里特别的启示是编辑一个公式时，按F9用公式的结果代替公式。 如果这是一个范围，它会用该范围的内容列表replace它。