|
>「文字列のはいっている列の数」です。
>シートには、A1,B1,C1・・・・N1まで文字列が入っています。
横ヤリですいません(^^;
こんなのはいかがでしょうか?
'-----------------------------------------------------------
Sub AAA()
MsgBox "値のある列数は " & XXX & " 列あります"
End Sub
'-----------------------------------------------------------
Function XXX() As Integer
'-
Dim Ce As Integer 'Columnの最終端
Dim Ct As Integer '値のある列をカウント
'-
Ce = Range("IV1").End(xlToLeft).Column '列の最終端取得
Ct = 0
'-
Dim X As Integer '値の調査を行う列のcolumn
'-
For X = 1 To Ce '開始位置X=1は任意に
If 1 <= Len(Cells(1, X).Value) Then '※値が必ず1行目にあると想定して Cells(1, X).value に
Ct = Ct + 1 '値の長さが1以上あればCtに+1
End If
Next
'-
XXX = Ct 'Sub AAAに結果を変えす
'-
End Function
'-----------------------------------------------------------
|
|