发布网友
共2个回答
热心网友
数组,假设1-8分别在a1:A8,a1:h1
公式=A1:A8&A1:H1&A1:A8
数组公式,三键,向右,向下拖拉;
或提前选中,按crlt+回车。
热心网友
Sub ss()
For a = 1 To 8
For b = 1 To 8
For c = 1 To 8
l = l + 1
Cells(l, 1) = a * 100 + b * 10 + c
Next c
Next b
Next a
End Sub