[已解决]二个单元格的内容按合并，自动填入相应的单元格内

wwj804

如图，单元格E2以下内容是手工输入的，当E2、E3......有内容时，单击更新按钮后，把单元格M3与E2合并、M3与E3合并......，并自动填入相应的单元格B2、B3......内，M3单元格位置是固定的，内容会改变的，注：合并形式是，如M3内容是E30044047，E2单元格内容是1，合并成E30044047.001，E2小于10时E2前面加二个0，E2小于100时E2前面加一个0，E2是三位数时是E2本身。哪位老师可帮我解决啊！！

最佳答案

月排行榜 / 总排行榜

雨吧

2016-9-24 09:52

1. Sub YuBa()
   
2.     Dim arr, i%, s$
   
3.     s = [m3]
   
4.     arr = Range("e2:e" & [e65536].End(3).Row)
   
5.     For i = 1 To UBound(arr)
   
6.         arr(i, 1) = s & "." & Format(arr(i, 1), "000")
   
7.     Next
   
8.     [b2:b1000] = ""
   
9.     [b2].Resize(i - 1) = arr
   
10. End Sub

复制代码

合并单元格内容.rar (8.73 KB, 下载次数: 5)

2016-9-24 09:52 上传

点击文件名下载附件

跳转到最佳答案楼层

雨吧

1. Sub YuBa()
   
2.     Dim arr, i%, s$
   
3.     s = [m3]
   
4.     arr = Range("e2:e" & [e65536].End(3).Row)
   
5.     For i = 1 To UBound(arr)
   
6.         arr(i, 1) = s & "." & Format(arr(i, 1), "000")
   
7.     Next
   
8.     [b2:b1000] = ""
   
9.     [b2].Resize(i - 1) = arr
   
10. End Sub

复制代码

合并单元格内容.rar (8.73 KB, 下载次数: 5)

2016-9-24 09:52 上传

点击文件名下载附件

wwj804

雨吧 发表于 2016-9-24 09:52

你好，可否把E2至E……的数据合并，合并的形式是连续的数据如1-5，7-9，13的形式填入M4单元格内？

雨吧

wwj804 发表于 2016-9-24 10:36
你好，可否把E2至E……的数据合并，合并的形式是连续的数据如1-5，7-9，13的形式填入M4单元格内？

1. Sub YuBa()
   
2.     Dim arr, i%, s$, m$
   
3.     s = [m3]
   
4.     arr = Range("e2:e" & [e65536].End(3).Row + 1)
   
5.     m = arr(1, 1)
   
6.     For i = 1 To UBound(arr) - 1
   
7.         If arr(i + 1, 1) - arr(i, 1) > 1 Then
   
8.             m = m & "-" & arr(i, 1) & "," & arr(i + 1, 1)
   
9.         End If
   
10.         arr(i, 1) = s & "." & Format(arr(i, 1), "000")
    
11.     Next
    
12.     [b2:b1000] = ""
    
13.     [m4] = m
    
14.     [b2].Resize(i - 1) = arr
    
15. End Sub

复制代码

雨吧

合并单元格内容.rar (9.66 KB, 下载次数: 2)

2016-9-24 11:10 上传

点击文件名下载附件