![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
現在マクロで最終行から検索して上に向かって作業をしていますが、先頭行から最終行までにしたい。マクロの改造を教えて貰えませんか。
Dim i As Long ' i=在庫シート行 変数
Dim LastRow As Long
'最終行
LastRow = Cells(Rows.Count, 3).End(xlUp).Row
'行をループ
For i = LastRow To 5 Step -1 '4 行タイトル行 5-1=4
If Cells(i, 17) > 0 Then
' 差し引きが0か? 全在庫売却=コピーして削除 一部売却=コピーして在庫減算
'行をコピーする。
Sheets("取引履歴").Activate
n = Cells(Rows.Count, "C").End(xlUp).Row + 1
Sheets("在庫").Activate
' 値でコピーする
Range(Cells(i, 2), Cells(i, 26)).Copy
Sheets("取引履歴").Cells(n, 2).PasteSpecial Paste:=xlPasteValuesAndNumberFormats ' lPasteValues
If Cells(i, 8) - Cells(i, 17) = 0 Then
'全在庫売却-------------------------------------------------
Rows(i).Delete 'i行目を削除
'一部売却------------------------------------------------
'一部クリア
Sheets("在庫").Activate
Cells(i, 8).Value = Cells(i, 8) - Cells(i, 17)
ActiveSheet.Range(Cells(i, 16), Cells(i, 26)).SpecialCells(xlCellTypeConstants, 23).ClearContents
End If
End If
Next i
End If
Exit Sub
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 数字が「0」の列を削除するため、下記のコードを実行しましたが、コンパイルエラーSubまたはFunct 3 2022/12/04 00:00
- Visual Basic(VBA) まとめシートから集計シートへA列のコードが一致したら1行コピーするマクロをネット上で見つけました。こ 1 2022/08/30 14:11
- Excel(エクセル) VBAの指示の内容 昨日こちらでご教示頂いたのですが初心者な為、一つ一つの指示が何をやっているのかわ 2 2022/10/25 18:08
- Visual Basic(VBA) ExcelVBAでDo Until loopのネスト、IF文を使って一致する物と一致しない物としたい 11 2022/12/24 17:46
- Visual Basic(VBA) VBA 請求書自動作成 3 2022/04/24 01:58
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) Excelで下記のようにマクロを作ったところ、一回目は実行できたのですが、二回目以降「実行時エラー1 1 2022/03/25 08:08
- Visual Basic(VBA) VBA処理追加 こちらでご教示頂いたのですが回答完了させてしまいましたのでこちらからまた質問させてく 2 2022/10/27 09:57
- Excel(エクセル) なぜExit Subがあるのかわかりません 4 2023/02/19 12:34
- Visual Basic(VBA) コード名シートA列と集計シートA列のコードが一致したら、コード名シートA5からk12の範囲をコピーし 1 2022/08/29 23:46
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
[VBA]選択範囲の下から上に処理する方法。
Visual Basic(VBA)
-
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
-
-
4
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
5
【Excel VBA】指定行以降をクリアするには?
Visual Basic(VBA)
-
6
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
-
7
VBA データ(特定値)のある最終行を取得したい
Excel(エクセル)
-
8
マクロについて。S列の途中からデータがある最終行まで消したいのですが、 Range(”S8”,Cel
Visual Basic(VBA)
-
9
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
10
エクセルVBAで5行目からオートフィルタモードに設定したいたい
Excel(エクセル)
-
11
【VBA】特定列に文字が入っていたらそのセル行をコピーしてマスターブックの同じ行に貼り付けたい
その他(Microsoft Office)
-
12
Rangeメソッドは失敗しました。globalオブジェクトについて
Excel(エクセル)
-
13
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
14
もしセルが#N/A"なら~をする・・・には?"
Excel(エクセル)
-
15
数式による空白を無視して最終行を取得するマクロ
Excel(エクセル)
-
16
VBA Cのセルが空白でなかったら、Aのセルに順番に数値を入力
Visual Basic(VBA)
-
17
VBAを使って検索したセルをコピーして別の場所に貼り付ける。
Visual Basic(VBA)
-
18
EXCEL VBA 指定したファイルが存在しない場合メッセージボックスを表示させる
Access(アクセス)
-
19
VBAで文字列を数値に変換したい
Excel(エクセル)
-
20
エクセルマクロで特定の範囲が空白という条件
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
マクロで最終行から上に検索を...
-
製造業ですが、廃棄処分(資材...
-
在庫引当とは?
-
生産完了品と在庫限定品の違い
-
「数を把握する」って英語でな...
-
無在庫販売のNASシステムについ...
-
在庫評価単価について
-
何だか最近心が狭くなってきて...
-
在庫にかかる税金
-
access 在庫計算
-
解き方がわかりません。力を貸...
-
輸入品の棚卸在庫について
-
なんでレグザは大きい方が安い...
-
売上在庫の評価減後の取扱い
-
コンビニに在庫確認の為に何度...
-
未使用新品、5年の長期在庫だっ...
-
Excelのマクロで品番から在庫数...
-
A(必要数)-B(在庫数)の計算結...
-
マジョリーゴードンについて
-
現在のセリアかダイソーで、SD...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
現在のセリアかダイソーで、SD...
-
エスエス製薬で探してる鼻炎薬…...
-
日本メーカーが出している「Typ...
-
製造業ですが、廃棄処分(資材...
-
マクロで最終行から上に検索を...
-
ヨドバシカメラのネット通販で...
-
コンビニに在庫確認の為に何度...
-
生産完了品と在庫限定品の違い
-
在庫日付順に先入先出しをエク...
-
OKホームセンターに100ミリまた...
-
在庫引当とは?
-
解き方がわかりません。力を貸...
-
ほしいスマホケース、私のもっ...
-
在庫月数の求め方について
-
iPhone 15を昨日購入し、今日の...
-
エクセルで在庫表作成、数量が...
-
在庫管理について
-
輸入品の棚卸在庫について
-
VBA内でSQL(UPDATEをループ処...
-
不良品を交換したいけど在庫が...
おすすめ情報