Excel VBA質問箱 IV

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

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


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

51022 / 76732

←次へ　｜　前へ→


	【30586】Re:毎月行数の違うデータを最終行まで合計し...

tbtk - 05/10/31(月) 14:43 -


	引用なし

	パスワード

はじめまして私も初心者なのでもっといい方法があるかもしれませんが
私が使用しているのと似ているので参考になれば
Dim A As Integer
Dim B As Integer
　　A = Range("A65536").End(xlUp).Row
　　For B = 1 TO A
　　　　Cells(B, 4) = Cells(B, 5) + Cells(B, 6)
　　Next B

　　　(列)　　　A　　　　　　B　　 C　　　D　　　　　E　　　　　F
(行)　　　　　ﾕﾆｯﾄ名　　　　日　　時　　　　　　　　データ１　データ２
　1　　　　　　A　　　　　　1　　　0　　　　　　　　　100　　　200
　2　　　　　　A　　　　　　1　　　1　　　　　　　　　123　　　400
　3　　　　　　A　　　　　　1　　　2　　　　　　　　　234　　　468
　・・・
4664　　　　　F　　　　　　30　　22　　　　　　　　450　　　158
4665　　　　　F　　　　　　30　　23　　　　　　　　340　　　245
間違い等があったらすみません。

3 hits

▼

【30585】毎月行数の違うデータを最終行まで合計し... あかつき 05/10/31(月) 14:26