Excel2003で、従業員データを管理する表を作成してます。
B列~AC列まで、1行づつ個人のデータがあります。
例えば、4(任意)行目の人が退社した場合、4(任意)行目のデータのみデータクリア(B4~AC4)するVBAを組みましたが、自動的に5行目~のデータを繰り上げるのは可能でしょうか。
A列やAD列以降に管理番号などが入力されている(そのままにする)のと
このシートを他のシートが参照しているので Rows.Delete で行ごと削除して繰り上げるわけにいかず悩んでます。
A B C D・・ AC AD AF・・
1 業者(1) 氏名 住所 TEL 入社年 部署 担当
2 001 阿部 東京 03- 2000 営業 A社
3 002 和田 千葉 04- 1990 営業 A社
4 003 佐藤 秋田 01- 1995 営業 B社
5 004 前田 富山 07- 1998 営業 B社
6 005 今井 新潟 02- 1985 財務 財務
7 006 青柳 東京 03- 1980 財務 財務
8 007 鈴木 千葉 01- 1990 工事 工事
・
・
20 業者(2) 氏名 住所 TEL 入社年 部署 担当
21 001 内藤 東京 03- 2000 営業 A社
・
・
こういった表です。よい案がありましたら、宜しくお願いします。
No.2ベストアンサー
- 回答日時:
データクリアのVBAがどんなものか分からないので、
参考程度に。
Sub kuriage()
Dim RN As Integer
Dim i As Integer
Dim j As Integer
Dim LR As Integer
i = InputBox("削除する行番号を入力してください", "行番号指定")
Debug.Print i
Range(Cells(i, 2), Cells(i, 4)).Clear
Application.ScreenUpdating = False '画面を更新しない
LR = Range("b65536").End(xlUp).Row 'データ最終行を取得
For j = i To LR '削除した行からデータ最終行まで繰り返す
Range(Cells(j, 2), Cells(j, 4)).Value = Range(Cells(j + 1, 2), Cells(j + 1, 4)).Value
'1つ上の行にデータを移動
Next
Application.ScreenUpdating = True '画面を更新する
End Sub
範囲は適宜変更してください。
サンプルはB列からD列までのデータを繰り上げです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excelマクロ 差分抽出の方法が知りたいです。 2 2023/03/07 13:25
- Excel(エクセル) EXCEL 関数を教えてください。(A列の同じ値が複数ある場合vlookupで出来ますか) 4 2022/12/07 20:54
- Visual Basic(VBA) エクセルについて教えてください。 3 2023/06/28 09:11
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- その他(データベース) Excel VBA 転記について 1 2022/04/20 16:55
- Visual Basic(VBA) Excel VBA 最終行を取得しVlookup関数をコピーする方法をコーディングで教えてください。 3 2023/05/11 13:14
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで日付から日にちを削...
-
excel:別シートの値を飛び飛び...
-
複数の条件に合う行番号を取得...
-
エクセルで1列に500行並んだデ...
-
Excelで2つのデータの突合せを...
-
エクセル2016にて、行挿入&コピ...
-
Countifよりも早く重複数をカウ...
-
Excelで2行単位のソートの出来...
-
エクセルで、重複データを除外...
-
Excelの30個ずつの平均値の出し方
-
エクセルで横並びの複数データ...
-
エクセルで1つの会社名に対して...
-
【エクセル】1列内に複数ある同...
-
EXCELである範囲内での最大値の...
-
エクセルで時刻だけを抜き出す...
-
エクセル関数について aかつ...
-
VBA 大きなtxtテキストファ...
-
エクセルVBA C列に特定の文字列...
-
差し込み印刷 «Next Record»に...
-
エクセルで沢山のレコードの最...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで1列に500行並んだデ...
-
Excelで2つのデータの突合せを...
-
エクセルで日付から日にちを削...
-
複数の条件に合う行番号を取得...
-
excel:別シートの値を飛び飛び...
-
Excelで2行単位のソートの出来...
-
エクセルで、重複データを除外...
-
エクセル あ 1/10 1/11 1/12 1/...
-
Countifよりも早く重複数をカウ...
-
Excelの30個ずつの平均値の出し方
-
エクセルで1つの会社名に対して...
-
エクセルで横並びの複数データ...
-
エクセル2016にて、行挿入&コピ...
-
【エクセル】1列内に複数ある同...
-
エクセルVBA C列に特定の文字列...
-
VBA 数式を最終行までコピー
-
VBA 大きなtxtテキストファ...
-
エクセル~空白のセルのある行...
-
エクセルで別々な2つのデータを...
-
EXCELでsheet1のデータをsheet2...
おすすめ情報