
No.6ベストアンサー
- 回答日時:
No.5 スマン、xlsxだった・・・ゴメン
行END = Range("A1048576").End(xlUp).Row
列END = Cells(2, 16384).End(xlToLeft).Column
For 列 = 6 To 列END
Cells(3, 列) = WorksheetFunction.CountIf(Range(Cells(6, 列), Cells(行END, 列)), "+")
Cells(4, 列) = WorksheetFunction.CountIf(Range(Cells(6, 列), Cells(行END, 列)), "0")
Next 列
この回答へのお礼
お礼日時:2024/04/19 17:38
ssawatake様
ご回答いただきまして、ありがとうございます!
無事思っていた通りの実行結果をえられました。
ベストアンサーに選ばせていただきます。
ありがとうございました!
No.7
- 回答日時:
以下のマクロを標準モジュールに登録してください。
A列の最後が最終行になります。
アクティブシート(表示されているシート)に対して作動します。
Option Explicit
Public Sub 合計算出()
Dim ws As Worksheet
Dim lastrow As Long
Dim wcol As Long
Dim rg As Range
Set ws = ActiveSheet
lastrow = ws.Cells(Rows.Count, 1).End(xlUp).Row
If lastrow < 5 Then Exit Sub
For wcol = 6 To 149
Set rg = ws.Cells(5, wcol).Resize(lastrow - 4, 1)
ws.Cells(3, wcol).Value = Application.CountIf(rg, "+")
ws.Cells(4, wcol).Value = Application.CountIf(rg, "o")
Next
End Sub
No.5
- 回答日時:
No.4 一部、列と行を間違えた。
こちらが正です。
行END = Range("A65536").End(xlUp).Row
列END = Cells(2, 255).End(xlToLeft).Column
For 列 = 6 To 列END
Cells(3, 列) = WorksheetFunction.CountIf(Range(Cells(6, 列), Cells(行END, 列)), "+")
Cells(4, 列) = WorksheetFunction.CountIf(Range(Cells(6, 列), Cells(行END, 列)), "0")
Next 列
No.4
- 回答日時:
xlxsなら、以下で行けると思います
行END = Range("A1048576").End(xlUp).Row
列END = Cells(2, 16384).End(xlToLeft).Column
For 列 = 6 To 列END
Cells(3, 列) = WorksheetFunction.CountIf(Range(Cells(6, 列), Cells(列END, 列)), "+")
Cells(4, 列) = WorksheetFunction.CountIf(Range(Cells(6, 列), Cells(列END, 列)), "0")
Next 列
No.3
- 回答日時:
>画像では省略したのですが、A列~E列のセルにも何らかの値(文字列)が入力されています。
>ですので、最終行はEnd(xlUp)プロパティを用いればいけるものと考えておりました。
では、A列の最後の行を最終行として扱ってよろしいでしょうか。
No.2
- 回答日時:
5行目以降下を見ると、+0が何行目まであるか、規則が解りませんね。
最終行は判定可能なんですか?
判定出来ないなら、 xlsなら65,536行まで、xlsxなら1,048,576行まで見ないとイケナクなり、無駄ですねぇ。
それでも「やれ」と言うなら、xlsなのかxlsxなのかを記載すれば、私を含めて誰かが回答すると思います。
No.1
- 回答日時:
こんにちは
以下はエクセルに計算してもらう方法ですので、エクセル的と言えばエクセル的ではありますが、普通のプログラミングの方法ではありません。
ご参考程度に。
普通の方法は、どなたかが回答してくれるものと思いますので、そちらをお待ちください。
Sub Sample()
Dim mr As Long, mc As Long
Dim f As String
mr = ActiveSheet.UsedRange.SpecialCells(11).Row - 4
mc = Cells(2, Columns.Count).End(xlToLeft).Column - 5
If mr < 1 Or mc < 1 Then Exit Sub
f = Replace("=IF($=0,"""",$)", "$", "COUNTIF(#,MID(""+o"",ROW(A1),1))")
With Range("F3").Resize(2, mc)
.Formula = Replace(f, "#", Range("F5").Resize(mr).Address(1, 0))
.Value = .Value
End With
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
以下の問題ってどう解くのです...
-
中学2年 数学のカレンダーの問...
-
Excelにて、フッターにシートの...
-
2592の正の約数の個数と、その...
-
Excelで負の数を足さずに0以上...
-
Excelの関数、マイナスになった...
-
問題の解き方が分かりません…
-
「和と積がともに3である2数」...
-
数学Aの問題です。(高校1年で...
-
大小2つのサイコロを投げる時...
-
0.1は10パーセントなら1.0は何...
-
積2桁の自然数のうち、各位の数...
-
数学Aです。大中小3個のさいこ...
-
1から9までの番号をつけた9枚の...
-
nを奇数とするとき、n^2-1は8...
-
周の長さは同じなのに面積が違...
-
文字式の分数の問題です。
-
問題「m,nは整数とする。積mnが...
-
数列1.2.3.....nにおいて、n≧2...
-
数学A 場合の数 組分けの問題
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
中学2年 数学のカレンダーの問...
-
天秤の問題
-
以下の問題ってどう解くのです...
-
Excelで負の数を足さずに0以上...
-
Excelにて、フッターにシートの...
-
トランプの数値の合計数を計算...
-
Excelの関数、マイナスになった...
-
エクセルVBAで複数の図に名前を...
-
中学数学をなめてはいけないな...
-
中学受験になります。
-
数の性質の問題
-
エクセルで、入力のないセルを...
-
重さの順番
-
2桁のチェックデジット求め方...
-
2592の正の約数の個数と、その...
-
【数学】10円、50円、10...
-
連立方程式
-
excelで日計表と月計表を作りたい
-
確率?の問題で教えてください
-
一般常識
おすすめ情報
ご回答いただきましてありがとうございます。
先ほどの投稿では不足がありましたので、補足いたします。
拡張子はxlsxです。
画像では省略したのですが、A列~E列のセルにも何らかの値(文字列)が入力されています。
ですので、最終行はEnd(xlUp)プロパティを用いればいけるものと考えておりました。。
見当違いの補足でしたら申し訳ありません。
よろしくお願いいたします。
tatsumaru77様
ご回答いただきまして、ありがとうございます。
はい、A列の最後の行で問題ありません。
よろしくお願いいたします。