はじめまして、よろしくお願いします。
シート2に
A B C D ・ ・ ・ ・ IV
1 赤 青 ・ ・ ・ ・ ・
2 7 14 ・ ・ ・ ・ ・
3 6 12 ・ ・ ・ ・ ・
4 5 10 ・ ・ ・ ・ ・
5 4 8 ・ ・ ・ ・ ・
6 3 6 ・ ・ ・ ・ ・
7 2 4 ・ ・ ・ ・ ・
8 1 2 ・ ・ ・ ・ ・
9
という表があります。その表の(C5-C6),(C4-C5),(C3-C4),(C2-C3)の平均値をシート1のC2へ、同じく(D5-D6),(D4-D5),(D3-D4),(D2-D3)の平均値をシート1のD2へ、列IVまで計算するVBAの仕方を教えていただきたいと思います。実際のシートでは計算行数はかなり多くなります。列では途中空白列があります。できる方、よろしくお願いします。
No.1ベストアンサー
- 回答日時:
> (C5-C6),(C4-C5),(C3-C4),(C2-C3)の平均値
って、(C2-C6)/4と言う意味でよろしいですか?(例の場合、(7-3)/4=1 )
その程度ならVBAでは無く演算式で、Sheet1のC2に↓を入れて右方向にコピーしては?
=IF(Sheet2!C2="","",(Sheet2!C2-Sheet2!C6)/4)
私が何か勘違いしているような気もしますが……。
No.4
- 回答日時:
こんにちは!
6行目以下にデータがあっても関係なく2行目~6行目で操作すればよいわけですよね?
一応そういうことだとして・・・
尚、空白セルは「0」とみなしてしまいますが、
ごく簡単な一例です。
↓のコードを標準モジュールにコピー&ペーストしてマクロを実行してみてください。
Sub test() 'この行から
Dim i, j As Long
Dim Val1, Val2 As Variant
Dim ws1, ws2 As Worksheet
Set ws1 = Worksheets("sheet1")
Set ws2 = Worksheets("sheet2")
For i = 3 To 256
For j = 2 To 5
Val1 = ws1.Cells(j, i) - ws1.Cells(j + 1, i)
Val2 = Val2 + Val1
Next j
ws2.Cells(3, i) = Val2 / 4
Val2 = 0
Next i
End Sub 'この行まで
外していたらごめんなさいね。m(__)m
No.3
- 回答日時:
> (C5-C6),(C4-C5),(C3-C4),(C2-C3)の平均値
C5からC6を引いたもの+C4からC5を引いたもの+C3からC4を引いたもの+C2からC3を引いたものを4で割るってことですか?
では一例です。
途中に空白があるとのことですが、特に指定が無いので空白は0とみなしました。
Sub test01()
Dim myV, myW
Dim i As Long, n As Long, j As Long
myV = Sheets("Sheet2").Range("C2:IV6").Value
ReDim myW(1 To UBound(myV, 2))
For j = 1 To UBound(myV, 2)
n = 0
For i = 1 To UBound(myV) - 1
n = n + 1
myW(j) = myW(j) + myV(i, j) - myV(i + 1, j)
Next i
myW(j) = myW(j) / n
Next j
Sheets("Sheet1").Range("C2").Resize(, UBound(myV, 2)) = myW
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 別シートに毎回異なるデータをコピーする 7 2022/06/24 09:02
- Excel(エクセル) マクロか関数で処理したいのですが、教えて頂けませんか。 8 2022/10/31 15:18
- Visual Basic(VBA) 複数シート一括作成後に、特定範囲の数式は値で貼り付けしたい 3 2022/10/07 11:18
- Excel(エクセル) エクセルVBAでチェックボックスにチェックを入れる 1 2022/09/14 00:52
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Excel(エクセル) EXCEL 行内のデータを2行に分けて、表を作り直したいのです。教えてください。 5 2023/06/25 14:00
- Excel(エクセル) VBA セルの値と同じ名前のシートにデータを貼り付けするやり方を教えてください 2 2022/05/17 16:26
- Visual Basic(VBA) C3とC4のセルに、Visual basicで実行した時入力した値をC3に表示させ、その後に、C3に 1 2023/07/14 09:43
- Excel(エクセル) エクセルのVBAにショートカットキーの割り当て 3 2022/07/13 14:19
- その他(Microsoft Office) エクセルマクロ オートフィルターでで選択コピー 2 2022/04/18 11:05
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
セックスする度に胸が大きくな...
-
週1ペースで会うカップルでデー...
-
恋人とセフレの違いはなんです...
-
セックスについて。 彼が正常位...
-
セックスの2回目が無理
-
おじさんになってから若い女性に
-
彼氏が私の性格も見た目も褒め...
-
30代前半男性の性欲
-
マッチングアプリで知り合った...
-
昨日久々に元セフレ(元々頻繁...
-
初めて泊まりにきてくれる彼女...
-
彼女とのセックスに新鮮味を感...
-
性欲と、人を好きになるって別...
-
胸が揺れるくらい激しいセック...
-
仕事が決まるまでは会わない彼
-
未成年同士でラブホに行った際...
-
貞操観念の低い女性について
-
セフレや遊びでスローセックス...
-
セックス前にAV
-
彼女が噛んできます。 歯型がつ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
セックスする度に胸が大きくな...
-
週1ペースで会うカップルでデー...
-
恋人とセフレの違いはなんです...
-
セックスについて。 彼が正常位...
-
初めて泊まりにきてくれる彼女...
-
おじさんになってから若い女性に
-
30代前半男性の性欲
-
彼女が噛んできます。 歯型がつ...
-
彼女とのセックスに新鮮味を感...
-
セックス前にAV
-
彼氏が私の性格も見た目も褒め...
-
セックスの2回目が無理
-
付き合って1ヶ月でヤった後別れ...
-
僕の心が狭いのでしょうか…?セ...
-
オナ禁中はセックスしてもいい...
-
セックスする時って会話します...
-
一番多くて週に何回セックスし...
-
性欲と、人を好きになるって別...
-
俗にいうセフレの定義を知りた...
-
やりもくなのか本当に付き合い...
おすすめ情報