第一个表中的 ID 列在每个单元格中包含多个需要拆分的值。然而,独特的问题是将 [name] 和 [description] 信息按 ID 保留到新表中。
.
以下 VBA 代码执行转置粘贴选项。这就是我开始使用 Chr(10) 或新行作为分隔符分割单元格的方法:
Sub splitText()
'splits Text active cell using ALT+10 char as separator
Dim splitVals As Variant
Dim totalVals As Long
splitVals = Split(ActiveCell.Value, Chr(10))
totalVals = UBound(splitVals)
Range(Cells(ActiveCell.Row, ActiveCell.Column + 1), Cells(ActiveCell.Row, ActiveCell.Column + 1 + totalVals)).Value = splitVals
End Sub
除此之外,我仍在寻找想法。
最佳答案
也许这会有所帮助:
Sub splitText()
'splits Text active cell using ALT+10 char as separator
Dim splitVals As Variant
Dim lngRow As Long, lngEl As Long
With Sheet2
'Range A2:A5
For lngRow = 5 To 2 Step -1
splitVals = Split(.Range("A" & lngRow).Value, Chr(10))
'the first value
.Range("A" & lngRow).Value = splitVals(0)
'remaining values
For lngEl = 1 To UBound(splitVals)
.Rows(lngRow + lngEl).Insert
.Range("A" & lngRow + lngEl).Value = splitVals(lngEl)
.Range("B" & lngRow + lngEl & ":C" & lngRow + lngEl).Value = .Range("B" & lngRow & ":C" & lngRow).Value
Next lngEl
Next lngRow
End With
End Sub
根据需要更改工作表代码/名称和范围。
之前:
之后:
关于excel - 是否能够在保留相邻列的值的同时拆分单元格?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/57591667/