将A列及B列数据组合到C列（三个列位置都是手动选择的）

LmTec

各位大神，标题太短可能表达不太清楚，先看下下面的图片
我想将某两列的内容组合到另外一列，三列位置都不是固定的，通过InputBox选择的，比如“姓”可能是在E列，“名”可能在F列，最后的“姓名”可能在G列
请帮忙看下下面的代码应该怎么修改。

1. Sub TEST()
   
2. On Error GoTo 100
   
3. Dim rng As Range, rng1 As Range, rng2 As Range
   
4.     Set rng = Application.InputBox("转换功能", "选择姓氏所在区域", , , , , , 8)
   
5.     If rng Is Nothing Then Exit Sub
   
6.     Set rng1 = Application.InputBox("转换功能", "选择名字所在区域", , , , , , 8)
   
7.     If rng1 Is Nothing Then Exit Sub
   
8.     Set rng2 = Application.InputBox("转换功能", "选择姓名保存区域", , , , , , 8)
   
9.     If rng2 Is Nothing Then Exit Sub
   
10.     For Each rng In Selection
    
11.       rng2.Value = rng.Value & rng1.Value
    
12.     Next
    
13. 100:
    
14. End Sub

复制代码

iwangyi

Sub CC()
Columns("G:G").Clear
N = [A65536].End(3).Row
For X = 1 To N
  For Y = 1 To 6
  Cells(X, "G") = Cells(X, "G") & Cells(X, Y)
Next
Next
End Sub

iwangyi

附件，请参考

不知道为什么

iwangyi 发表于 2018-9-9 21:42
Sub CC()
Columns("G:G").Clear
N = [A65536].End(3).Row

哈哈，这应该不是楼主的需求哦。

实际楼主代码已经接近成功了！

LmTec

iwangyi 发表于 2018-9-9 21:43
附件，请参考

我不是要固定位置的

LmTec

不知道为什么 发表于 2018-9-9 22:37
哈哈，这应该不是楼主的需求哦。

实际楼主代码已经接近成功了！

接近成功了，那就小小提示下

LmTec

大神们，来帮忙指导下。

LmTec

怎么都没人指导一下呢？

lsdongjh

1. Sub TEST()
   
2.     Dim lngRows(2) As Long
   
3.     Dim lngRow, lngMinRows As Long
   
4.     Dim rng As Range, rng1 As Range, rng2 As Range
   
5.    
   
6. On Error GoTo 100
   
7.     Set rng = Application.InputBox("转换功能", "选择姓氏所在区域", , , , , , 8)
   
8.     If rng Is Nothing Then Exit Sub
   
9.     lngRows(0) = rng.Count
   
10.    
    
11.     Set rng1 = Application.InputBox("转换功能", "选择名字所在区域", , , , , , 8)
    
12.     If rng1 Is Nothing Then Exit Sub
    
13.     lngRows(1) = rng1.Count
    
14.    
    
15.     Set rng2 = Application.InputBox("转换功能", "选择姓名保存区域", , , , , , 8)
    
16.     If rng2 Is Nothing Then Exit Sub
    
17.     lngRows(2) = rng2.Count
    
18.    
    
19.     lngMinRows = Application.WorksheetFunction.Min(lngRows)
    
20.     For lngRow = 1 To lngMinRows
    
21.       rng2(lngRow).Value = rng(lngRow).Value & rng1(lngRow).Value
    
22.     Next
    
23. 100:
    
24. End Sub

复制代码

LmTec

lsdongjh 发表于 2018-9-12 12:42

感谢，解决问题！