excel数据自动生成：A栏有1栋、2栋；B栏有1单元、2单元、3单元；C栏有101、201、301，如何自动生地址？

发布网友发布时间：2022-05-11 06:08

共4个回答

热心网友时间：2024-02-10 09:59

环境假设：表名称Sheet1，首行为标题行，1栋、1单元、101在第二行。
结果要求：在D2开始向下依次显示1栋1单元101、1栋1单元201。。。。
表处于激活状态，同时按下【Alt + F11】组合键，打开VBA编辑器：
双击左上方的Sheet1对象，把下面代码复制到右侧的代码区域。
然后用鼠标单击代码内部的任意地方，再按F5键即可。。

Sub 自动添加序列()
x = UsedRange.Rows.Count
y = 2
For i = 2 To x
For j = 2 To x
For k = 2 To x
Cells(y, 4) = Cells(i, 1) & Cells(j, 2) & Cells(k, 3)
y = y + 1
If Cells(k + 1, 3) = "" Then Exit For
Next
If Cells(j + 1, 2) = "" Then Exit For
Next
If Cells(i + 1, 1) = "" Then Exit For
Next
End Sub

热心网友时间：2024-02-10 09:59

D1单元格输入公式
=A1&B1&C1
下拉复制公式

是要这样的内容吗
否则要说清楚生成什么样内容的地址

热心网友时间：2024-02-10 10:00

D1单元格输入公式
=INDEX(A:A,ROW(A9)/9,)&INDEX(B:B,MOD(ROW(A3)/3-1,3)+1,)&INDEX(C:C,MOD(ROW(A3),3)+1,)

下拉填充公式

热心网友时间：2024-02-10 10:01

=A1&B1&C1
下拉即可