Excel VBA質問箱 IV

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

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


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

3114 / 76735

←次へ　｜　前へ→


	【79258】隣のセルが空白でない場合に値を入力したい

VBA勉強始めました - 17/6/21(水) 13:28 -


	引用なし

	パスワード

始めましてVBAを勉強し始めた者です。

毎月、従業員名簿を作成しているのですが
ほぼ同じ作業を手作業で行っており、非効率な為
VBAを使って作業を簡略化できればと考えております。

途中までの過程は独学ながらなんとか作成できているのですが
下記の作業だけどうすればよいかわからず固まっております…

【作業内容】
名簿を作成する為のファイルには5つのシートがあり
列の構成はすべて同じで、行は所属従業員によってシートごとでバラバラです。

　　　A　　　B　　　C　　D　　E　　F
1　コード　部門名　No.　氏名
2　 0000　　 A　　 10　　a
3　 0001　　 B　　 11　　b
4　 0002　　 C　　 12　　c
5　 0003　　 D　　 13　　d
6

ここに下記のVBAでA列の左横に1列挿入します。
Sheets(1).Select
Columns("A:A").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

　　　A　　　 B　　　 C　　D　　 E　　F
1　　　　　コード　部門名　No.　氏名
2　　　　　 0000　　 A　　 10　　a
3　　　　　0001　　 B　　 11　　b
4　　　　　0002　　 C　　 12　　c
5　　　　　0003　　 D　　 13　　d
6

この挿入したA列にB列が空白ではない場合
数値を入力したいと考えているのですが
VBAのテキストも買って読んでいるのですが
うまくVBAを組めません…

どなたかお力添えを頂けないでしょうか？

0 hits

▼

【79258】隣のセルが空白でない場合に値を入力したい VBA勉強始めました 17/6/21(水) 13:28