人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

たびたびすみません。。。
またマクロについて質問です。回答者には100ポイント。先の質問と合わせて回答していただけたら150ポイント。

sample.xls
A列 B列 C列 D列
a0001 ○○○ △△△
a0003 ●●● △▲△
a0003 役職:○○○
a0003 ●●● △▲△
a0003 役職:△△△
a0005 ●●●
a0005 役職:□□□


結果
A列 B列 C列 D列
a0001 ○○○ △△△
a0003 ●●● △▲△ 役職:○○○
a0003 ●●● △▲△ 役職:△△△
a0005 ●●● 役職:□□□


sample.xls
・A列の番号は重複する場合がある
・B列の値が”役職:”という文字から始まっている場合、その内容をひとつ上の行のD列に出力し、
もとの行は削除する。

●質問者: yuko0909
●カテゴリ:コンピュータ ウェブ制作
✍キーワード:xls □□□ すみません ひとつ ポイント
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● SALINGER
●150ポイント ベストアンサー

うまく動かなかった場合は、役職の後の「:」が半角か全角かを確認してみてください。

Sub Macro()
 Dim lastRow As Long
 Dim i As Long
 
 lastRow = Cells(Rows.Count, 1).End(xlUp).Row
 
 For i = lastRow To 1 Step -1
 If Left(Cells(i, 2).Value, 3) = "役職:" Then
 If i > 1 Then
 Cells(i - 1, 4).Value = Cells(i, 2).Value
 Rows(i).Delete
 End If
 End If
 Next i
End Sub
◎質問者からの返答

ありがとうございます。できました!!

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ