Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

5148 / 76732

←次へ　｜　前へ→


	【77197】配列の有効数を求める(空白がある)

まり - 15/6/15(月) 17:18 -


	引用なし

	パスワード

お世話になっております。

シートを配列化→データ抽出→フォーマットシートに転記

上記をしたいのですが、以下のvbaでは空白を含むシートの場合
対応できません。
空白を含む場合でも正常動作するにはどうすればよいですか。
B列は必ず値が入っております。

説明不足かもしれませんが、追記もしますので、
宜しくお願いします。

'配列の有効列数を求める
Public Function ArrayColumn(ArrayData As Variant) As Double

Dim i As Double

For i = 1 To UBound(ArrayData, 2)
　 If ArrayData(1, i) = "" Then
　　　ArrayColumn = i - 1
　　　Exit For
　 End If
Next

If ArrayColumn = 0 Then
　 ArrayColumn = UBound(ArrayData, 2)
End If

End Function

'配列の有効行数を求める
Public Function ArrayRow(ArrayData As Variant) As Double

Dim i As Double

For i = 1 To UBound(ArrayData, 1)
　 If ArrayData(i, 1) = "" Then
　　　ArrayRow = i - 1
　　　Exit For
　 End If
Next

If ArrayRow = 0 Then
　 ArrayRow = UBound(ArrayData, 1)
End If

End Function

268 hits

▼

【77197】配列の有効数を求める(空白がある) まり 15/6/15(月) 17:18