いつも大変お世話になっております。
以下のコードを実行すると
添付したファイルのようになります。
合計の値が間違って出てくるのです
どこがまちがっているわかる方お願い致します。
よろしくお願い致します。
Sub asf()
Dim Box As Variant
Dim Ans As Variant
Dim i, j As Long
Dim col As Variant
Dim y As Long
col = Array(1, 3)
x = Cells(Rows.Count, 34).End(xlUp).Row + 1
Box = Range("ai549", Range("ai" & Rows.Count).End(xlUp)).Resize(, 3).Value
ReDim Ans(1 To 1, 1 To UBound(Box, 2))
For i = LBound(Box, 2) To UBound(Box, 2)
For j = LBound(Box) To UBound(Box)
Ans(1, i) = Ans(1, i) + Box(j, i)
Next j
Next i
For y = 35 To 37 Step 2
Cells(561, y) = Ans
Next y
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 【VBA】特定のワードが入っている行全体を塗りつぶしたい 4 2022/04/20 15:22
- Visual Basic(VBA) このマクロの説明文を教えてほしいです。 1 2023/01/12 09:17
- Visual Basic(VBA) vba 重複データ合算 5 2023/07/05 18:55
- Visual Basic(VBA) VBA横データを縦にしたいです 2 2023/08/08 19:38
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたい 6 2023/01/23 12:00
- Visual Basic(VBA) 数字が「0」の列を削除するため、下記のコードを実行しましたが、コンパイルエラーSubまたはFunct 3 2022/12/04 00:00
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたいの続き 5 2023/01/24 00:16
- Visual Basic(VBA) ExcelVBAで、index、match関数を使用して、指定範囲に出力したい 3 2022/10/18 21:53
- Visual Basic(VBA) VBAが止まります。 1 2022/09/02 14:51
- Visual Basic(VBA) 前回ご教授いただいたコードに覚えたてのループ処理で品名りんごAから順に20回for nextでループ 7 2023/01/13 22:01
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【ExcelVBA】値を変更しながら...
-
VBAで大量のファイルをシート名...
-
VBA 何かしら文字が入っていたら
-
【マクロ】1つのマクロの中に...
-
VBA 別ブックからコピペしたい...
-
VBAを使用した時間管理
-
Excelのマクロでワードのテキス...
-
【PowerPoint VBA】緑色の文字...
-
ExcelのVBAコードについて教え...
-
2つのマクロでチェックボックス...
-
VB.net(VB)で、フォームにExcel...
-
FileCopy時のエラー
-
VBA ユーザーフォーム ボタンク...
-
エクセルについて
-
Vba SelStart、SelLen教えてく...
-
VBAで各列の"+"と"o"の合計数を...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
Excel VBA 定義されたプロージ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
bashスクリプト内のpostgreSQL...
-
YAHOO JAPANの左右の広告を非表...
-
ディープフェイクを作成するサ...
-
pdfをaiに自動で変換したい
-
得もないのに面倒なことをしよ...
-
小論文?作文?です。お願いし...
-
失業者が出るのになぜAIを作る...
-
FTXって、どういう意味ですか?...
-
鯉はどうして水面に跳ねるので...
-
pHジャンプについて教えてくだ...
-
アルファベットを中国語(漢字...
-
dynamicsとkineticsの違いって...
-
ビー玉を41個使って遊ぶゲー...
-
都市銀行店頭の店員さん全てロ...
-
慣性がなかったら、どうなりますか
-
よく「飲み行こう」「食べ行こ...
-
生物と無生物の最大の違いって...
-
走る電車の中と外でジャンプし...
-
steamに登録できない
-
皆さん、おはようございます♪ ...
おすすめ情報
Cells(561, y) = Ans(y-34)有効範囲でないと
メッセージがでます
ありがどうございました。
意味が分かりました。
ちなみにわかればおしえてくれませんでしょうか
一列とばしてFor y = 35 To 37
Cells(561, y) = Ans(1, y - 34)
Next y
指定された列のみ合計ってできますでしようか。
col = array(35,36,39)
for y = lbound(col) to ubound(col)
ふうになかなかうまくいきません