軟體: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後單獨運作都是正常的
所以不太懂到底問題出在哪裡
希望有人可以幫忙解答一下