excel vba合并第2个字符串 在一起

这个不难，如果区域很少，那就用Mid函数直接计算就行了，可区域比较大时，就得使用VBA功能了，可以编写一个自定义函数
Public Function hebin(rng as range)

dim ran as range

dim str as string
str=""
for each ran in rng
str=str & mid(ran,2,1)
next
hebin= "明" & str
End Function
将上面的代码复制到你的表的模块中以后，在D1中输入公式 =hebin(B5:I12)便OK了

代码如下：

Sub Com()
Dim my_Range As Range
Dim my_String As String
For Each my_Range In Worksheets(1).Range("B5:i12")
If my_Range <> "" Then
my_String = my_String & Mid(my_Range, 2, 1)
End If
Next
Cells(1, 4) = "明" & my_String
End Sub

看不懂你要的结果是怎么来的