
標題の件について、以下の表にある3つのデータ(E1からE3)を
●別ブックへ転記したい
●転記する時に、20240101から2024/1/1に読替えて転記したい
現状、1つだけは読替えて、転記は出来ましたが、連続した複数セルの
転記は出来ませんでした
コード分かる方、ご指導のほど、お願いします
1から作成でも、以下コードから修正でもokです
宜しくお願い致します
【表について】
E1 日付
E2 20240101
E3 20240102
E4 20240103
※コピー元ブック Sheet1
※文字書式:標準
※変数ws1にコピー元ブックとシートを格納
※変数W2は、コピー先ブックを格納 Sheet1。マッサラなシート
Sub 日付()
Dim filepath1 As String
Dim wb1 As Workbook
Dim ws1 As Worksheet
filepath1 = ThisWorkbook.Worksheets("Sheet1").Cells(4, 1)
Set wb1 = Workbooks.Open(filepath1)
Set ws1 = wb1.Worksheets("Sheet1")
Dim filepath2 As String
Dim wb2 As Workbook
Dim ws2 As Worksheet
filepath2 = ThisWorkbook.Worksheets("Sheet1").Cells(5, 1)
Set wb2 = Workbooks.Open(filepath2)
Set ws2 = wb2.Worksheets("Sheet1")
A = ws1.Range("e2")
B = CDate(Format(A, "@@@@/@@/@@")) '2020/01/01
MsgBox B
ws2.Range("a2") = B
End Sub
No.5ベストアンサー
- 回答日時:
最終行 = WS1.Range("B65536").End(xlUp).Row
↓かな?
最終行 = WS1.Range("E65536").End(xlUp).Row
No.4
- 回答日時:
No.3続き
行数が一定では無いなら最終行を取り込み、そこまでループです。
最終行 = WS1.Range("B65536").End(xlUp).Row
For 行 = 2 To 最終行
A = WS1.Range("e" & 行)
B = CDate(Format(A, "@@@@/@@/@@")) '2020/01/01
WS1.Range("a" & 行) = B
Next 行
No.3
- 回答日時:
>>約25~100まで増えるので、効率的な方法はないかなぁと
考えています
だったら、行と言う変数を使ってループです。
例えば2行目~100行目までをループさせるなら
↓↓
For 行 = 2 To 100
A = WS1.Range("e" & 行)
B = CDate(Format(A, "@@@@/@@/@@")) '2020/01/01
WS1.Range("a" & 行) = B
Next 行
No.2
- 回答日時:
こんにちは
>本データは、約25~100まで増えるので、効率的な方法は
>ないかなぁと考えています
同じ(ような)処理を繰り返す場合は、通常は「ループ」といわれる「繰り返し処理」を利用します。
https://youseful.jp/microsoft/excel/vba-for-loop/
https://www.sejuku.net/blog/69026
可変部分(例えば、行番号など)を変数化しておいて、その部分を制御するようにすれば良いでしょう。
No.1
- 回答日時:
A = ws1.Range("e2")
B = CDate(Format(A, "@@@@/@@/@@")) '2020/01/01
ws2.Range("a2") = B
たった3セルなんですから、上をあと2セット書けば良いです。
A = ws1.Range("e1")
B = CDate(Format(A, "@@@@/@@/@@")) '2020/01/01
ws2.Range("a1") = B
A = ws1.Range("e3")
B = CDate(Format(A, "@@@@/@@/@@")) '2020/01/01
ws2.Range("a3") = B
お返事ありがとうございます
すいません、簡単にはかいたのですが
本データは、約25~100まで増えるので、効率的な方法はないかなぁと
考えています
ご指導ありましたら、宜しくお願い致します!
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) クリップボードに貼付している文字列が、マクロで別ブックへ転記すると、消えてしまう 1 2023/10/15 13:36
- Visual Basic(VBA) Excelのマクロについて教えてください。 1 2024/06/18 09:20
- Excel(エクセル) 3つのマクロを連続実行の中で、1つ目のマクロ要件を満たさなかったら、マクロ2・3を実行しない為には 1 2023/10/15 13:42
- Visual Basic(VBA) 【マクロ】1つのマクロの中に、ブック指定とシート指定が混在しても良いのですか? 2 2024/05/16 07:13
- Excel(エクセル) 【マクロ】その時、その時で変わる範囲を、フォルダの違う別ブックへ転記する為には ※参考画像あり 3 2024/05/11 10:33
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- Visual Basic(VBA) Excelのマクロについて教えてください。 1 2024/06/13 13:39
- Visual Basic(VBA) 【前回の続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/16 16:44
- Excel(エクセル) 【マクロ】book1からbook2への適切な転記が出来ない件 2 2023/11/08 17:23
- Excel(エクセル) 【マクロ】違うフォルダにあるファイルから、転記するには? 4 2023/09/26 19:49
このQ&Aを見た人はこんなQ&Aも見ています
-
見学に行くとしたら【天国】と【地獄】どっち?
みなさんは、一度だけ見学に行けるとしたら【天国】と【地獄】どちらに行きたいですか? 理由も聞きたいです。
-
スマホに会話を聞かれているな!?と思ったことありますか?
スマートフォンで検索はしてないのに、友達と話していた製品の広告が直後に出てきたりすることってありませんか? こんな感じでスマホに会話を聞かれているかも!?と思ったエピソードってありますか?
-
あなたの「プチ贅沢」はなんですか?
お仕事や勉強などを頑張った自分へのご褒美としてやっている「プチ贅沢」があったら教えてください。
-
人生でいちばんスベッた瞬間
誰しも、笑いをとろうとして失敗した経験があると思います。
-
一番好きなみそ汁の具材は?
みんなで大好きなみそ汁の具材について語り合おうよっ!
-
2列に入っているデータを1列で表示する関数について
Excel(エクセル)
-
【マクロ】メッセージボックスにて、キャンセルをクリックしたら、マクロ終了。エクセルへ戻すには
Excel(エクセル)
-
8:40までの出勤は全て8:30にする関数を教えて下さい!!
Excel(エクセル)
-
-
4
セル内が空白設定なのに#N/Aと出てくるのを回避する方法を教えてください。
Excel(エクセル)
-
5
エクセル初心者です 用語等まだ良く分からないので簡単に説明していただけると幸いです タブの挿入、図形
Excel(エクセル)
-
6
数字入力後他の文字等が表示される方法について
Excel(エクセル)
-
7
Excelの数式の効率化について
Excel(エクセル)
-
8
Excelを無料で使うには? パソコン購入して、マイクロソフトに登録して そのままExcelがデスク
Excel(エクセル)
-
9
【マクロ】Ifとwith ステートメントにて分からない部分があります
Excel(エクセル)
-
10
excelVBAについて。
Excel(エクセル)
-
11
エクセル初心者です 用語とか良く分からないので簡単に説明していただけると幸いです 表を作っているので
Excel(エクセル)
-
12
excelVBAについて。
Excel(エクセル)
-
13
excelVBAについて。
Excel(エクセル)
-
14
Excelの罫線を消す方法
Excel(エクセル)
-
15
エクセルのデータについて
Excel(エクセル)
-
16
excelですが一つのマスに入ってる文字を2つのマスに変更できますか
Excel(エクセル)
-
17
エクセルで作成した書類の印刷について
Excel(エクセル)
-
18
【マクロ】関数の入力にてエラーがでます
Excel(エクセル)
-
19
Excelで表を作ったところに文字を打ったら下のようになるのですが、どうすれば枠内に文章を続けて行け
Excel(エクセル)
-
20
Excelの表示についての質問
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・「これはヤバかったな」という遅刻エピソード
- ・初めて自分の家と他人の家が違う、と意識した時
- ・いちばん失敗した人決定戦
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel 偶数月の15日(土日祝...
-
Excelの数式について教えてくだ...
-
Excelのメニューについて
-
VLOOKUP FALSEのこと
-
エクセル内に読み込んが画像の...
-
【マクロ】1回目の実行後、2...
-
勤務外時間を出す表が作りたい
-
Excelで作成した出欠表から日付...
-
エクセルの数式について教えて...
-
【マクロ】参照渡しとモジュー...
-
Excelの条件付書式について教え...
-
【マクロ】シート追加時に同じ...
-
マクロを実行すると、セル範囲...
-
【マクロ】参照渡しについて。...
-
Excel 日付の表示が直せません...
-
エクセルで、数字の下4桁の0を...
-
【マクロ】Call関数で呼び出し...
-
別のシートの指定列の最終行を...
-
Excelのデーターバーについて
-
Excelでの文字入力について
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【マクロ】重複する同じ行を、...
-
Excelの条件付き書式のコピーと...
-
vba 印刷設定でのカラー印刷と...
-
VBA の単語の意味を教えて下さい。
-
Excel 日付の表示が直せません...
-
エクセル 同じ行の隣り合う数字...
-
エクセル条件付き書式について。
-
エクセルの数式につきまして
-
ファイル名の変更
-
エクセル 数字のみ抽出につて
-
Excelの開始ブックを固定したい...
-
エクセルの数式について教えて...
-
エクセルのセルをクリックする...
-
=INDIRECT(RIGHT(CELL("filenam...
-
エクスプローラーで見ることは...
-
Excelの関数で質問です
-
至急お願いいたします 屋上の備...
-
エクセルでセルに入力する前は...
-
関数を教えて下さい
-
Excel 関数での質問です
おすすめ情報
丁寧にご指摘ありがとうございます
参考にいたしまして、少し変えましたが、以下の
とおり作りました
何行でも、瞬時に転記できました
順番に実行するのでスピード遅延するかとは思いましたが
一瞬で、出来ました
ありがとうございます
【コード】
lastrow = ws1.Cells(Rows.Count, "A").End(xlUp).Row
For i = 2 To lastrow
A = ws1.Cells(i, 5)
B = CDate(Format(A, "@@@@/@@/@@")) '2020/01/01
ws2.Cells(i, 1) = B
Next i