软件:OFFICE 365 EXCEL
版本:1908
最近因为工作关系
需要写一个可以计算单格多行每行字数各自是多少的VBA
我是用资料剖析先把每格的文字以CHAR(10)当分隔先做切割
切割后会自动列在C5到AG5共30格（最多分割30行）
计算行数的公式是放在C栏
=LEN(A3)-LEN(SUBSTITUTE(A3,CHAR(10),""""))+1
版面配置如图
https://i.imgur.com/gzQvRhg.png
VBA公式如下
资料剖析分割单格内各行文字放入D5～AG5(上略)
Dim i, p, a As Integer
For p = 5 To 100 '设定计算栏为5～100
a = Cells(p, 3).Value '将C5～C100的值=行数设为变量
For i = 4 To (a + 3) '设定计算列为D到～(行数的值+3=输出栏)
这条为了避免行数不到30时输出一堆0，把范围控制在来源行数内
If Len(Cells(p, 1)) > 0 Then '若A栏字数大于0
Cells(3, 3).Copy Destination:=Cells(p, 3) '复制计算行数公式到C栏
Cells(p, i).Value = Len(Cells(p, i)) '计算D5~AG5分割后的字数
Else
End If
Next '循环p+1
Next '循环i+1
Cells(5, 2).Formula = "=TEXTJOIN(CHAR(10), TRUE,D5:AG5) '输出结果到B5
复制公式到其他格(下略)
写到这样已经快完成了，但是却严重卡关
目前遇到的问题是Cells(3, 3).Copy Destination:=Cells(p, 3)没办法正常运作
除非C栏本来就有值，不然IF后的运算式会完全被略过
但是把这条移出IF后单独运作都是正常的
所以不太懂到底问题出在哪里
希望有人可以帮忙解答一下