
请EXCEL专家Vba帮我做一个多个单元格的数字怎么才能合并到一个单元格呢 ?谢谢你们啦!
请EXCEL专家Vba帮我做一个多个单元格的数字怎么才能合并到一个单元格呢?谢谢你们啦!原始数据合并后数据行数A列B列C列D列E列F列G列H列I列第一行103567891...
请EXCEL专家Vba帮我做一个多个单元格的数字怎么才能合并到一个单元格呢 ?谢谢你们啦! 原 始 数 据合并后数据行数A列B列C列D列E列F列G列H列I列第一行103567891356789第二行0.110.080.890.230.450.670.890.99124689第三行11.239.090.983.2598.035.458.070.010249第四行11.239.090.983.2598.035.458.070.01013589第五行11.239.090.983.2598.035.458.070.01019等等说明:第一行合并后数据是不重复的数字第二行合并后数据是不重复的小数点右第一位数字第三行合并后数据是不重复的小数点右第一位数字第四行合并后数据是不重复的小数点左第一位数字第五行合并后数据是不重复的小数点左第二位数字
展开
2013-09-09
展开全部
Function hb(xRng As Range, n As Integer) As String
Dim iFlag As Boolean
Dim i As Integer
Dim cell As Range
For i = 0 To 9
iFlag = False
For Each cell In xRng
If Mid(Format(cell, "0000.000000"), InStr(Format(cell, "0000.000000"), ".") + n, 1) = i Then
iFlag = True
Exit For
End If
Next
If iFlag Then hb = hb & i
Next
End Function
在J2输入 =hb(B2:I2,-1)
-1表示小数点左边1位
-2表示左边2位
1表示右边1位
2表示右边2位
Dim iFlag As Boolean
Dim i As Integer
Dim cell As Range
For i = 0 To 9
iFlag = False
For Each cell In xRng
If Mid(Format(cell, "0000.000000"), InStr(Format(cell, "0000.000000"), ".") + n, 1) = i Then
iFlag = True
Exit For
End If
Next
If iFlag Then hb = hb & i
Next
End Function
在J2输入 =hb(B2:I2,-1)
-1表示小数点左边1位
-2表示左边2位
1表示右边1位
2表示右边2位
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询