| |
▼かみちゃん さん：
すいません。ご指摘ありがとうございます。
少し自分なりにわかりやすく変更しました。
Ａ5〜Ｕ25までﾃﾞｰﾀｰを入れました。
A B C・・・・・・・・・・Ｕ
番号 日付 場所
この場所によってｼｰﾄ2・3に振り分けたいのです。
ＩＦまではできたのですが、繰り返し処理がまずわかりませんでした。
また、ｼｰﾄ2.3は出来れば上書きではなく、1行下に下げる
Rows("1:2").Insert Shift:=xlDownで処理をしていきたいです。
Sub 修正中()
（ここにFor i = 5 to 25 と入れましたがエラーになった為
一旦削除して、IFだけつくりました）
If Range("C5") = "場所1" Then
Range("A5", "U5").Copy
Worksheets("変換").Activate
Range("A1", "U1").PasteSpecial Paste:=xlPasteValues
ElseIf Worksheets("貼り付けｼｰﾄ").Range("C5") = "場所2" Then
Range("A5", "U5").Copy
Worksheets("変換").Activate
Range("A1", "U1").PasteSpecial Paste:=xlPasteValues
ElseIf Worksheets("貼り付けｼｰﾄ").Range("C5") = "場所3" Then
Range("A5", "U5").Copy
Worksheets("変換").Activate
Range("A1", "U1").PasteSpecial Paste:=xlPasteValues
ElseIf Worksheets("貼り付けｼｰﾄ").Range("C5") = "場所4" Then
Range("A5", "U5").Copy
Worksheets("変換").Activate
Range("A1", "U1").PasteSpecial Paste:=xlPasteValues
Else
Worksheets("変換").Activate
Range("A1") = ""
End If
End Sub
|
|
poo
- 07/12/3(月) 14:26 -
