Excel VBA質問箱 IV

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

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


1038 / 74659 ←次へ | 前へ→

【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を組めません…

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

【79258】隣のセルが空白でない場合に値を入力したい VBA勉強始めました 17/6/21(水) 13:28 質問[未読]
【79259】Re:隣のセルが空白でない場合に値を入力し... マナ 17/6/21(水) 18:49 発言[未読]
【79262】Re:隣のセルが空白でない場合に値を入力し... VBA勉強始めました 17/6/23(金) 16:25 発言[未読]
【79264】Re:隣のセルが空白でない場合に値を入力し... マナ 17/6/23(金) 18:45 発言[未読]
【79279】Re:隣のセルが空白でない場合に値を入力し... VBA勉強始めました 17/6/28(水) 9:36 回答[未読]
【79282】Re:隣のセルが空白でない場合に値を入力し... マナ 17/6/30(金) 22:22 発言[未読]
【79285】Re:隣のセルが空白でない場合に値を入力し... VBA勉強始めました 17/7/1(土) 0:33 発言[未読]
【79286】Re:隣のセルが空白でない場合に値を入力し... マナ 17/7/1(土) 9:28 発言[未読]
【79296】Re:隣のセルが空白でない場合に値を入力し... VBA勉強始めました 17/7/5(水) 16:13 お礼[未読]

1038 / 74659 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free