我有一个电子表格，其中的数据位于用换行符分隔的单个单元格中。我需要将单元格分成单独的行，以便我可以删除一些数据并重新组合。像这样：
| 物品 | 地位 |
|---|---|
| 285T1150-3 | 285T0680-1 1 完整 285T1145-7//D 1 ATS-182 285T1146-1//D 1 完整 363A4872P4 1 无路由器 |
转换成这样：
| 物品 | 地位 |
|---|---|
| 285T1150-3 | 285T0680-1 1 完整 |
| 285T1150-3 | 285T1145-7//D 1 ATS-182 |
| 285T1150-3 | 285T1146-1//D 1 完整 |
| 285T1150-3 | 363A4872P4 1 无路由器 |
这是我一直在使用的代码：
check_col = colArray(0)
ColLastRow = Range(check_col & Rows.Count).End(xlUp).Row
For Each Rng In Range(check_col & "1" & ":" & check_col & ColLastRow)
If InStr(Rng.Value, vbLf) Then
Rng.EntireRow.Copy
Rng.EntireRow.Insert
For i = 0 To UBound(colArray)
c = colArray(i)
Set currentrng = Range(c & Rng.Row)
Set upperRng …