Vba Visual basic在excel中使用宏将单元格中的各行划分为不同的行
如何在excel中将单元格中的各行拆分为不同的行,并使用visual basic代码使用宏打印另一张工作表中的行您可以使用以下代码将单个单元格中的多行数据拆分为另一张工作表中的不同行:Vba Visual basic在excel中使用宏将单元格中的各行划分为不同的行,vba,excel,Vba,Excel,如何在excel中将单元格中的各行拆分为不同的行,并使用visual basic代码使用宏打印另一张工作表中的行您可以使用以下代码将单个单元格中的多行数据拆分为另一张工作表中的不同行: Sub splitCell() r = 1 'cell data will copied starting from this row number in sheet 2 temp = Split(Sheet1.Range("A1"), Chr(10)) For i = LBound
Sub splitCell()
r = 1 'cell data will copied starting from this row number in sheet 2
temp = Split(Sheet1.Range("A1"), Chr(10))
For i = LBound(temp) To UBound(temp)
Sheet2.Cells(r, 1).Value = temp(i) 'data will be pasted in the 1st column of sheet 2
r = r + 1
Next
End Sub
在
Chr(10)
和Sheet2.Cells(1,1).Resize(UBound(temp)+1,1)=Application.Transpose(tmp)
上,也可以在没有循环的情况下工作。@Jeeped-我尝试用单行代码替换for循环,但在输出中,我得到的行中只有0(零)。对不起,我错过了一个临时工的e。因为您没有使用optionexplicit(您有一些未声明的变量),所以它只是动态地创建了一个新的tmp变量。