□ 戻る □一般操作のサロン □ 使用方法 □ 新着記事 □ 新規に質問する！ □ トピック一覧 □ 検索 □ 過去ログ
[ 最新記事及び返信フォームをトピックトップへ ]
| 数式による空白を無視して最終行の次を取得したい。 | |
|---|---|
[196010] 数式による空白を無視して最終行の次を取得したい。- ■親トピック/記事引用/メール受信=OFF■ □投稿者/ きみひろ -(2023/10/31(14:26)) □U R L/ A B C D E F
1 位置 厚さ 厚さ 厚さ 厚さ 平均厚さ
2 1 2 3 4
3 10 3 3 3 2 2.75
4 20 3 3 3 3 3.00
5 30 4 3 3 3 3.25
6 平均 3.00
7
F列の3〜〜数式 =IF(ISBLANK(B2),"",AVERAGE(B2:E4))
A6とF6はﾃﾞｰﾀの数によって位置が変わる。
Sub sample()
Dim r As Long
r = Range("J10").End(xlDown).Row + 1
Range("A" & r) = "平均"
With Range("J" & r)
.Formula = "=AVERAGE(J10:J" & (r - 1) & " )"
End With
End Sub
数式による空白を無視して最終行の次を取得したいのですが
どのようしたらいでしょうか？お願いします。この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 ++++++++++++++++++++ OS ⇒OTHER Version⇒OTHER ++++++++++++++++++++ | |
[196011] Re[1]: 数式による空白を無視して最終行の次を取得したい。- ■記事引用/メール受信=OFF■ □投稿者/ 半平太 -(2023/10/31(15:40)) □U R L/ ＞F列の3〜〜数式 =IF(ISBLANK(B2),"",AVERAGE(B2:E4)) ホントにF列の数式なんですか？ ＞A6とF6はﾃﾞｰﾀの数によって位置が変わる。 コードは、J列に見えますけど、ホントにA列とかF列なんですか？ | |
[196012] Re[2]: 数式による空白を無視して最終行の次を取得したい。- ■記事引用/メール受信=OFF■ □投稿者/ きみひろ -(2023/10/31(16:00)) □U R L/
| |
[196013] Re[3]: 数式による空白を無視して最終行の次を取得したい。- ■記事引用/メール受信=OFF■ □投稿者/ 半平太 -(2023/10/31(16:10)) □U R L/ ふーむ、J列とか、10行目からとか、よく分からないので、
この部分だけの話に限定します。
↓
＞「数式による空白を無視して最終行の次を取得したい。」
数式がF列に入っているなら、
r = Columns("F").Find("*", , xlValues, , , xlPrevious).Row + 1
数式がJ列に入っているなら、
r = Columns("J").Find("*", , xlValues, , , xlPrevious).Row + 1 | |
[196014] Re[4]: 数式による空白を無視して最終行の次を取得したい。- ■記事引用/メール受信=OFF■ □投稿者/ きみひろ -(2023/10/31(16:17)) □U R L/ ありがとうございます。 やりたいことができました。 | |
[196015] Re[5]: 数式による空白を無視して最終行の次を取得したい。- ■  / 記事引用/メール受信=OFF■
□投稿者/ きみひろ -(2023/10/31(16:17)) □U R L/ > ありがとうございます。 > > やりたいことができました。 | |