[已解决]如何在同一单元格内分离首行与其他内容

autumn0321

各位大神如何使用宏分离同一单元格内首行内容与其他内容如图所示，将c列的名称、参数，分离出来

最佳答案

月排行榜 / 总排行榜

林木水

2021-12-29 21:37

autumn0321 发表于 2021-12-31 09:48
当中间有空白行的时候还是会报错哦

Sub test()on error resume next

Dim Arr, T$, n%, i&
Arr = Range("c2:d" & [c65536].End(3).Row)
For i = 1 To UBound(Arr)
IF arr(i,1)="" then
   else
    T = Arr(i, 1): n = InStr(T, Chr(10)) - 1
    Arr(i, 1) = Mid(T, 1, n)
    Arr(i, 2) = Mid(T, n + 2, Len(T)-n-1)
  end if
Next
[e2].Resize(UBound(Arr), 2) = Arr
End Sub

用这个，加一个条件就可以了，把空行排除

跳转到最佳答案楼层

林木水

autumn0321 发表于 2021-12-31 09:48
当中间有空白行的时候还是会报错哦

Sub test()on error resume next

Dim Arr, T$, n%, i&
Arr = Range("c2:d" & [c65536].End(3).Row)
For i = 1 To UBound(Arr)
IF arr(i,1)="" then
   else
    T = Arr(i, 1): n = InStr(T, Chr(10)) - 1
    Arr(i, 1) = Mid(T, 1, n)
    Arr(i, 2) = Mid(T, n + 2, Len(T)-n-1)
  end if
Next
[e2].Resize(UBound(Arr), 2) = Arr
End Sub

用这个，加一个条件就可以了，把空行排除

psxk3535028-1

看看是不是这样

autumn0321

psxk3535028-1 发表于 2021-12-30 00:16
看看是不是这样

当中间出现空行，非连续的内容会报错哦

autumn0321

psxk3535028-1 发表于 2021-12-30 00:16
看看是不是这样

请教下 哪些是变量？我复制代码到其他表格上运行不下去

sam-wang

autumn0321 发表于 2021-12-30 11:14
当中间出现空行，非连续的内容会报错哦

請測試看看，謝謝
Sub test()
Dim Arr, T$, n%, i&
Arr = Range("c2:d" & [c65536].End(3).Row)
For i = 1 To UBound(Arr)
    T = Arr(i, 1): n = InStr(T, Chr(10)) - 1
    Arr(i, 1) = Mid(T, 1, n)
    Arr(i, 2) = Mid(T, n + 2, Len(T))
Next
[e2].Resize(UBound(Arr), 2) = Arr
End Sub

林木水

sam-wang 发表于 2021-12-30 11:28
請測試看看，謝謝
Sub test()
Dim Arr, T$, n%, i&

Sub test()
Dim Arr, T$, n%, i&
Arr = Range("c2:d" & [c65536].End(3).Row)
For i = 1 To UBound(Arr)
    T = Arr(i, 1): n = InStr(T, Chr(10)) - 1
    Arr(i, 1) = Mid(T, 1, n)
    Arr(i, 2) = Mid(T, n + 2, Len(T)-n-1)
Next
[e2].Resize(UBound(Arr), 2) = Arr
End Sub

改成n+2更加合适

sam-wang

林木水 发表于 2021-12-30 11:42
Sub test()
Dim Arr, T$, n%, i&
Arr = Range("c2:d" & [c65536].End(3).Row)

感謝提醒，謝謝。

hcm19522

E2=LEFT(C2,FIND(CHAR(10),C2)-1)
F2=SUBSTITUTE(C2,E2,)

autumn0321

林木水 发表于 2021-12-30 11:42
Sub test()
Dim Arr, T$, n%, i&
Arr = Range("c2:d" & [c65536].End(3).Row)

当中间有空白行的时候还是会报错哦