Question

excel表格例如内容是（行）：1,2,3,4,5......如何能快速设置成（行）：1,1,2,2,3,3,4,4,5,5,....

就是说一个填好了内容的表格，如何让每一行变成重复的两行？

Answer 1

你要是想要设置两行是一样的内容吗，要是这样的话，选插入然后复制第一行的内容就行了

Answer 2

选中数据区域，按 ALT + F8 执行宏 Expand

宏代码:
Sub Expand()
Dim dt As String
dt = ""
For Each rg In Selection
dt = dt & rg.Value & " "
Next
a = Split(Trim(dt), " ")
c = 0
For Each rg In Selection
rr = rg.Row()
cc = 2 * rg.Column() - 1
Cells(rr, cc).Value = a(c)
Cells(rr, cc + 1).Value = a(c)
c = c + 1
Next
End Sub

Answer 3

假设数据是在第一行,第二行输入公式
=OFFSET($A$1,,(COLUMN(A1)-1)/2) 右拉复制公式