关于一个取名字的遍历宏，菜鸟求助。

随风任逍遥

第一列有“姓“：周吴郑王，，第二列有”名“：亮玉冲，第三列希望生成遍历组成成的名字。备注：姓名的行数会有增加的可能。公司网络不让传附件，见谅。

姓	名	遍历生成
周	冲	周冲
吴	亮	周亮
王	红	周红
张	玉	周玉
…		吴亮

厄尔尼喏

最直接的方法，两个FOR...NEXT循环姓、名，生成直接累加，用&合并

iwangyi

Sub 姓名()
For i=1 tO [A65536].End(3).Row
CeLLs(i，3)=CeLLs(i，1)&CeLLs(i，2)
Next
End Sub

kankan1030

Sub tt()
a = Cells(Rows.Count, 1).End(xlUp).Row
b = Cells(Rows.Count, 2).End(xlUp).Row
n = 1
For i = 2 To a
    For j = 2 To b
        n = n + 1
        Cells(n, 3) = Cells(i, 1) & Cells(j, 2)
    Next
Next
End Sub

wuliaolang

sql语句好像很方便

1. select 姓&名 as 姓名 from [Sheet1$A1:A5], [Sheet1$B1:B5]

复制代码