从多个单元格中选取值并将输出粘贴到一个单元格中
Pick values from multiple cells and paste output in one cell
我的数据集如下所示:
A 0.998315185
B 0.232720507
C 0.010558964
D 0.004246209
E 0.002552556
我想将下面的输出粘贴到一个单元格中:
0.998315185A+0.232720507B+0.010558964C+0.004246209D+0.002552556E
这样我就可以复制它并在其他地方使用它。
您可以试试这个用户自定义函数。在 sheet 的单元格中使用此函数,如下所示...
=CombineData(A1:B5)
用户自定义函数:
Function CombineData(ByVal Rng As Range) As String
Dim i As Long, j As Long
Dim str As String
Dim cell As Range
For i = 1 To Rng.Rows.Count
For j = Rng.Columns.Count To 1 Step -1
If str = "" Then
str = Rng.Cells(i, j)
Else
str = str & Rng.Cells(i, j)
End If
Next j
str = str & "+"
Next i
CombineData = str
End Function
使用较新的 TEXTJOIN 函数作为 数组公式 与 CSE。
=TEXTJOIN("+", TRUE, B2:INDEX(B:B, MATCH(1E+99, B:B))&A2:INDEX(A:A, MATCH(1E+99, B:B)))
¹ TEXTJOIN 与 Excel 2016 一起引入了以下版本:Excel 适用于 Android 手机,Excel 移动设备,Excel 2016 with Office 365,Excel 2016 for Mac,Excel Online,Excel for iPad,[= iPhone 30=] 和 Android 平板电脑 Excel。
我的数据集如下所示:
A 0.998315185
B 0.232720507
C 0.010558964
D 0.004246209
E 0.002552556
我想将下面的输出粘贴到一个单元格中:
0.998315185A+0.232720507B+0.010558964C+0.004246209D+0.002552556E
这样我就可以复制它并在其他地方使用它。
您可以试试这个用户自定义函数。在 sheet 的单元格中使用此函数,如下所示...
=CombineData(A1:B5)
用户自定义函数:
Function CombineData(ByVal Rng As Range) As String
Dim i As Long, j As Long
Dim str As String
Dim cell As Range
For i = 1 To Rng.Rows.Count
For j = Rng.Columns.Count To 1 Step -1
If str = "" Then
str = Rng.Cells(i, j)
Else
str = str & Rng.Cells(i, j)
End If
Next j
str = str & "+"
Next i
CombineData = str
End Function
使用较新的 TEXTJOIN 函数作为 数组公式 与 CSE。
=TEXTJOIN("+", TRUE, B2:INDEX(B:B, MATCH(1E+99, B:B))&A2:INDEX(A:A, MATCH(1E+99, B:B)))
¹ TEXTJOIN 与 Excel 2016 一起引入了以下版本:Excel 适用于 Android 手机,Excel 移动设备,Excel 2016 with Office 365,Excel 2016 for Mac,Excel Online,Excel for iPad,[= iPhone 30=] 和 Android 平板电脑 Excel。