
仕事で他の人に使ってもらうExcelファイルを作っているのですが行き詰っているので助けてください。
①列指定して特定の文字が入ったセルを複数条件から探して該当する行を全てコピーして、
②空いている行から貼り付けして、
③コピーした行のセルの一か所( I列予定 )に文字や記号を1文字追加したい。
Sub 行コピー()
Dim mySheet As Worksheet
Dim targetSheet As Worksheet
Dim lastRow As Long
Dim i As Long
Set mySheet = ThisWorkbook.Sheets("シート名")
Set targetSheet = ThisWorkbook.Sheets("シート名")
lastRow = mySheet.Cells(mySheet.Rows.Count, "A").End(xlUp).Row
For i = 1 To lastRow
If mySheet.Cells(i, "E").Value = "〇〇" Or mySheet.Cells(i, "E").Value = "△△" Or mySheet.Cells(i, "E").Value = "✕✕" Then
mySheet.Rows(i).Copy Destination:=targetSheet.Rows(targetSheet.Cells(targetSheet.Rows.Count, "A").End(xlUp).Row + 1)
End If
Next i
End Sub
ネットで探して②までは上記で可能なのですが③が分からず、
どなたか助けて頂けると助かります。
No.2ベストアンサー
- 回答日時:
>③が分からず
③コピーした行のセルの一か所( I列予定 )に文字や記号を1文字追加したい。
コピーした・・のI列なら
mySheet.Cells(i, "I").Value = mySheet.Cells(i, "I").Value & "〇"
当該I列セルの値に文字"〇"を文字末に追加
貼り付けた行のI列セルなら
Dim r as Range
Set r = targetSheet.Cells(targetSheet.Rows.Count, "A").End(xlUp).Offset(, 8)
r.Value = r.Value & "〇"
貼り付けた当該行 I列セルの値に文字"〇"を文字末に追加
いずれも
mySheet.Rows(i).Copy Destination:=targetSheet.Rows(targetSheet.Cells(targetSheet.Rows.Count, "A").End(xlUp).Row + 1)
ここに入れる
End If
?
ご回答ありがとうございます。
コピーして増えた側に追加で1文字入れたかったので下側で上手く行きました。
差し込む部分も明記して頂いたので簡単でした。
ありがとうございました。
No.1
- 回答日時:
③が曖昧です。
mySheet.Cells(i, "E")に、なのか、targetSheetに書かれた方なのか、どっち?
>>セルの一か所( I列予定 )に文字や記号を1文字追加
セルの一か所、とか、1文字追加、の意味が曖昧過ぎる。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルマクロでデータ出力の際の条件がうまく機能しません。 2 2023/09/30 13:01
- Visual Basic(VBA) A2~I4179列にあるリストを支社名ごとにシートに分けたいです。 各シート名はA列にある支社名とし 3 2023/08/29 16:46
- Visual Basic(VBA) VBA 複数の各シートに行を追加したいです 2 2024/02/28 22:09
- Visual Basic(VBA) Excel VBA マクロ シート名を変えずにA列にあるセル名の名前でファイルの分割をしたいです 3 2024/02/05 22:10
- Visual Basic(VBA) VBA 1 2024/02/03 22:51
- Visual Basic(VBA) VBAコードが作動しません。修正したいのですが何処に原因かあるか教えて下さい。 1 2024/01/08 16:23
- Visual Basic(VBA) エクセルマクロで出力行の増やし方がわかりません。 4 2023/09/28 23:40
- Visual Basic(VBA) Sub 分けてソートして貼り付ける() Dim srcSheet As Worksheet Dim 6 2023/08/04 19:57
- Visual Basic(VBA) 数字が「0」の列を削除するため、下記のコードを実行しましたが、コンパイルエラーSubまたはFunct 3 2022/12/04 00:00
- Excel(エクセル) エクセルマクロでデータ出力の際の条件がうまく機能しません。 5 2023/10/01 12:50
このQ&Aを見た人はこんなQ&Aも見ています
-
今年はじめたいことは?
今年はこれをはじめたい!ということを教えてください!
-
「これはヤバかったな」という遅刻エピソード
寝坊だったり、不測の事態だったり、いずれにしても遅刻の思い出はいつ思い出しても冷や汗をかいてしまいますよね。
-
みんなの【マイ・ベスト積読2024】を教えてください。
積読、ついついしちゃいませんか?そこでみなさんの 「2024年に買ったベスト積読」を聞きたいです。
-
あなたの人生で一番ピンチに陥った瞬間は?
これまでの人生で今振り返ると「あの時、1番ピンチだったなぁ...」という瞬間はありますか?
-
「これいらなくない?」という慣習、教えてください
現代になって省略されてきたとはいえ、必要性のない慣習や風習、ありませんか?
-
VBAのエラー表示の対処法について
Visual Basic(VBA)
-
VBA Application.Matchについての質問です
Visual Basic(VBA)
-
Excel VBAについて。こんな動作をさせるためにはどう書けばよいでしょうか。
Visual Basic(VBA)
-
-
4
不要項目の行削除方法について
Visual Basic(VBA)
-
5
ExcelVBA修正のお願い
Visual Basic(VBA)
-
6
ExcelVBAマクロで実行した時の疑問
Visual Basic(VBA)
-
7
[Excel VBA]特定の条件で文字を削除&残す処理をするファイルを作成したいです
Visual Basic(VBA)
-
8
エクセル タブの下のメニューを選択 実行するコード
Visual Basic(VBA)
-
9
VBAでセルの書式を変えずに文字列を置換する方法をご教示ください
Visual Basic(VBA)
-
10
質問58753 このコードでうまく動作しません。どうしたら良いですか Private Sub Wor
Visual Basic(VBA)
-
11
VBA 最終行の取得がうまくいかず上書きされてしまいます。
Visual Basic(VBA)
-
12
vbaマクロについて
Visual Basic(VBA)
-
13
マクロVBAです。 どなたかコードをご教示いただけないでしょうか。 シート名に(チェ)がある全シート
Visual Basic(VBA)
-
14
VBAコードのインデント表示
Visual Basic(VBA)
-
15
VBA コードどこがおかしいですか?
Visual Basic(VBA)
-
16
VBA 入力箇所指定方法
Visual Basic(VBA)
-
17
【ExcelVBA】5万行以上のデータ比較の効率的な処理方法について
Visual Basic(VBA)
-
18
Visualbasicの現状について教えてください
Visual Basic(VBA)
-
19
VBA 2次元配列の出力
Visual Basic(VBA)
-
20
Excel マクロについて詳しい方、ご教示ください。 『行数が毎回変わる元データの、A列に「1」と入
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・「これはヤバかったな」という遅刻エピソード
- ・初めて自分の家と他人の家が違う、と意識した時
- ・いちばん失敗した人決定戦
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ExcelのVBAコードについて教え...
-
Excel マクロについて詳しい方...
-
えくせるのVBAコードについて教...
-
エクセルのVBAコードについて教...
-
VBAの「To」という語句について
-
算術演算子「¥」の意味について
-
VBA 最終行の取得がうまくいか...
-
VB.net 文字列から日付型へ変更...
-
マクロVBAです。 どなたかコー...
-
質問58753 このコードでうまく...
-
VBAから書き込んだ条件付き初期...
-
VBAについて教えて下さい
-
VBAで特定の文字が入った行をコ...
-
Excel 範囲指定スクショについ...
-
【マクロ】オートフィルターに...
-
Vba 型が一致しません(エラー1...
-
VBAでFOR NEXT分を Application...
-
Vba WorkBooks.Openについて教...
-
Excel VBAについて。こんな動作...
-
不要項目の行削除方法について
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VB.net 文字列から日付型へ変更...
-
VBA 最終行の取得がうまくいか...
-
VBAでエクセルのテキストデータ...
-
【ExcelVBA】5万行以上のデー...
-
エクセルVBAで在庫の組み換え処...
-
VBAから書き込んだ条件付き初期...
-
エクセルのVBAコードについて教...
-
VBAでユーザーフォームを指定回...
-
エクセルのVBAについて教えてく...
-
vbaマクロについて
-
ExcelのVBAコードについて教え...
-
【VBA】 結合セルに複数画像と...
-
WindowsのOutlook を VBA から...
-
質問58753 このコードでうまく...
-
ExcelのVBAコードについて教え...
-
Excel VBAについて。こんな動作...
-
[Excel VBA]特定の条件で文字を...
-
[VB.net] ボタン(Flat)のEnable...
-
エクエルのVBAコードについて教...
-
ExcelのVBAコードについて教え...
おすすめ情報