画像のファイルのA列に〇があるもののみ別のファイルに転記して頂きたいです。
転記するファイルはC列、E列、K列、O列、S列、U列にそれぞれ分かれていて、スタートは必ず13行目からです。
多い時で200程あります。
これを別ファイルのA1から下に順番になるようにし、尚且つ分かれている数字やアルファベットを1つのセルに繋げたあと、最後に右端にすべて*を付ける。(画像参照して下さい。)
マクロの処理ですが、転記するファイルを開いている状態で実行して別ファイルに転記するといった感じです。別ファイルは開いていても、開いていなくても転記できるようにしたいです。
別ファイルの場所とファイル名は下記になります。
C:\Users\t-tai\OneDrive\デスクトップ\図番\図番転記.xlsx
よろしくお願いします。
No.10ベストアンサー
- 回答日時:
>② maxrow1 = 500で実行するとできました。
>これでも大丈夫ですけど。
本来であれば、
maxrow1 = ws1.Cells(Rows.Count, "C").End(xlUp).Row
の行で、エラーが発生する原因を特定し、それを解決するのが正しい対処法です。しかしながら、そのエラーとなるブックのシートが手元にないので、思い当たる原因がこれ以上思いつきません。
とりあえず、最後まで実行できたようなので、他に問題がなければ、これでクローズしたいと思いますが、いかがでしょうか。
今後、最大行が500を超える可能性があるようでしたら、もう少し多めの値をmaxrow1に設定しておいてください。
No.9
- 回答日時:
>こちらも試してみましたが変わりません。
>1004表示が出ます。
>列の指定がううまくできていないのでしょうか?
>一端、ベストアンサーに選んで、再度質問をしてもう一度画像を送りましょ>か?
エラーは、どの行で起こってますか。
① 'maxrow1 = ws1.Cells(Rows.Count, "C").End(xlUp).Row
② maxrow1 = 500
①はコメントアウトされているので、エラーは発生しません。
②でエラーが起こるのは感がられません。
No.8
- 回答日時:
>頂いたコードを試してみましたが、やはり同じです。
>エラーコード1004が出ます。
>何度もやってみましたがダメでした。
あてずっぽうですが、何かそのシートに原因があるように思われます。
とりあえず、その現象を避けるために、その行をコメントアウトして、
最大行を直接設定して、再度実行していただけませんでしょうか。
例えば、最大行が500なら、
maxrow1 = ws1.Cells(Rows.Count, "C").End(xlUp).Row
の行を
'maxrow1 = ws1.Cells(Rows.Count, "C").End(xlUp).Row
maxrow1 = 500
のようにします。
この500は実際の最大行より多めにとっても問題ありません。
こちらも試してみましたが変わりません。
1004表示が出ます。
列の指定がううまくできていないのでしょうか?
一端、ベストアンサーに選んで、再度質問をしてもう一度画像を送りましょか?
No.7
- 回答日時:
前回のマクロは破棄してください。
こちらを、標準モジュールに登録してください。
Option Explicit
Public Sub 別ファイルへ転記()
Dim fpath As String
Dim wb As Workbook
Dim ws1 As Worksheet
Dim wb2 As Workbook
Dim ws2 As Worksheet
Dim maxrow1 As Long
Dim row1 As Long
Dim row2 As Long
Set ws1 = ThisWorkbook.Worksheets("Sheet1")
fpath = "C:\Users\t-tai\OneDrive\デスクトップ\図番\図番転記.xlsx"
Set wb2 = Nothing
For Each wb In Workbooks
If wb.Name = "図番転記.xlsx" Then
Set wb2 = wb
Exit For
End If
Next
If wb2 Is Nothing Then
Set wb2 = Workbooks.Open(fpath)
End If
Set ws2 = wb2.Worksheets(1)
ws2.Cells.ClearContents
row2 = 1
maxrow1 = ws1.Cells(Rows.Count, "C").End(xlUp).Row
For row1 = 13 To maxrow1
If ws1.Cells(row1, "A").Value = "○" Then
ws2.Cells(row2, "A").Value = ws1.Cells(row1, "C").Value & ws1.Cells(row1, "E").Value & ws1.Cells(row1, "K").Value & _
ws1.Cells(row1, "O").Value & ws1.Cells(row1, "S").Value & ws1.Cells(row1, "U").Value & "*"
row2 = row2 + 1
End If
Next
End Sub
No.6
- 回答日時:
>マクロ登録は転記元のブックで間違いありません。
>シートも最前面、1番左のシートです。
こちらでは、動作しているのですが、あなたの環境ではアクティブシートが正しく動作していないように見えます。
転記元のシートのシート名を提示していただけませんでしょうか。
シート名を直接指定して、そのシートを操作するように変えたいと思います。
No.2
- 回答日時:
No1です。
以下のマクロを標準モジュールに登録してください。
Option Explicit
Public Sub 別ファイルへ転記()
Dim fpath As String
Dim wb As Workbook
Dim ws1 As Worksheet
Dim wb2 As Workbook
Dim ws2 As Worksheet
Dim maxrow1 As Long
Dim row1 As Long
Dim row2 As Long
Set ws1 = ActiveSheet
fpath = "C:\Users\t-tai\OneDrive\デスクトップ\図番\図番転記.xlsx"
Set wb2 = Nothing
For Each wb In Workbooks
If wb.Name = "図番転記.xlsx" Then
Set wb2 = wb
Exit For
End If
Next
If wb2 Is Nothing Then
Set wb2 = Workbooks.Open(fpath)
End If
Set ws2 = wb2.Worksheets(1)
ws2.Cells.ClearContents
row2 = 1
maxrow1 = ws1.Cells(Rows.Count, "C").End(xlUp).Row
For row1 = 13 To maxrow1
If ws1.Cells(row1, "A").Value = "○" Then
ws2.Cells(row2, "A").Value = ws1.Cells(row1, "C").Value & ws1.Cells(row1, "E").Value & ws1.Cells(row1, "K").Value & _
ws1.Cells(row1, "O").Value & ws1.Cells(row1, "S").Value & ws1.Cells(row1, "U").Value & "*"
row2 = row2 + 1
End If
Next
End Sub
実行してみましたが、
maxrow1 = ws1.Cells(Rows.Count, "C").End(xlUp).Rowのところで
エラーコード1004が表示されます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルVBAについて 8 2022/07/13 22:41
- Visual Basic(VBA) エクセルVBA 4 2022/05/14 00:51
- その他(プログラミング・Web制作) エクセルVBA 3 2022/06/11 16:01
- Visual Basic(VBA) tatsumaru77様 昨日回答して頂いたものです。 すみませんが、昨日の質問で1つ補足があります 1 2022/05/15 15:06
- Visual Basic(VBA) VBAで特定の場所にあるCSVファイル(複数)から特定場所を抜き出してExcelに転記したいです。 11 2023/05/23 16:29
- Visual Basic(VBA) エクセルファイルのデータ転記について 2 2024/02/17 02:10
- その他(プログラミング・Web制作) エクセルVBA 18 2022/06/11 17:19
- Excel(エクセル) 【マクロ】book1からbook2への適切な転記が出来ない件 2 2023/11/08 17:23
- Visual Basic(VBA) 【補足欄が足りなかったため、こちらで再質問させていただきます。】 Excelの転記マクロについて、教 4 2023/09/27 08:51
- Excel(エクセル) 【マクロ】転記ツール。転記先にデータがある場合、上書きするか消すか質問をして欲しい 2 2023/10/29 22:52
このQ&Aを見た人はこんなQ&Aも見ています
-
風水の観点で選ぶ観葉植物とは?置き場所や上げたい運気ごとの注意点を紹介!
観葉植物で運気をアップするコツを、風水デザイン1級建築士の福島昌彦さんに伺った。
-
Excel 大なり小なりを表すとき、 例えば「10以上」なら、>=10 と表せますが、 この10の部
Excel(エクセル)
-
excelの不要な行の削除ができない!
Excel(エクセル)
-
エクセルのマクロで、資料を呼び出していますが、それを保存せずにしまい込む方法を教えてください。
Excel(エクセル)
-
-
4
excelマクロ 冒頭3文字が一致するファイルのコピー移動
Excel(エクセル)
-
5
エクセル関数について教えてください
Excel(エクセル)
-
6
【Excel(エクセル)】複数シートで名簿管理したいです(数式?マクロ?)
Excel(エクセル)
-
7
Excelでこういう年を切り替えられる簡易なカレンダーを作ったのですが、 年や月を変えると、色が付い
Excel(エクセル)
-
8
セルの結合の連続技
Excel(エクセル)
-
9
excel access連携 このテーブルは空ですと表示
Excel(エクセル)
-
10
式の解読のお願いm(_._)m
Excel(エクセル)
-
11
Excelの関数に関する質問です
Excel(エクセル)
-
12
Excel VBAで、実行時にsheet上のコマンドボタンのCaptionを変更する。
Excel(エクセル)
-
13
エクセルで2桁から5桁の数字があります。その数字のダブリを解消する方法を教えてください。
Excel(エクセル)
-
14
Excelのマクロで、セルを結合してその結合したセルに斜線「右上から左下」が出来るようになるコードっ
Excel(エクセル)
-
15
Excelで、ファイル名、シート名を指定するとその内容を同ファイル別シートに値だけ貼り付ける方法
Excel(エクセル)
-
16
Excel 集計表
Excel(エクセル)
-
17
エクセル マクロ 別シートから実行すると動かない
Excel(エクセル)
-
18
エクセルで比較 かつ 部分一致について
Excel(エクセル)
-
19
Excelセルの参照先の取得
Excel(エクセル)
-
20
Excel 書式のクリア・値貼付けをしても書式が変わらない
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
.NETアプリを作ったときの .man...
-
他のMDBのマクロを実行する方法
-
既に開いているエクセルを閉じ...
-
jarファイル
-
自分で作成した重要ファイルを...
-
Latexで図番号だけを「図1.1」...
-
コマンドプロンプトで作成日時...
-
アクセス 壊れた? 「ファイ...
-
#include <Windows.h>というヘ...
-
コマンドプロンプトで、指定し...
-
C言語---ファイルに出力したデ...
-
exeファイルの中身を見る方法は...
-
ドラッグしたファイルのパスを...
-
binファイルを解凍したいの...
-
Word VBA MSGBOX 内で降順表示
-
VB6 でSSH接続がしたい
-
「ファイルのダウンロード」の...
-
ラッパーって何なんでしょう・...
-
exeファイルをデータ転送サービ...
-
exeファイルが作れない(windows10)
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
アクセス 壊れた? 「ファイ...
-
#include <Windows.h>というヘ...
-
Latexで図番号だけを「図1.1」...
-
binファイルを解凍したいの...
-
.NETアプリを作ったときの .man...
-
ファイル構造が破損しているフ...
-
2つのファイルのバイナリをコン...
-
CSSを1ページに1枚作るのって変...
-
Word VBA MSGBOX 内で降順表示
-
公文書のxmlファイルの開き方が...
-
jarファイル
-
バッチ処理で追記コピーしたい
-
自分で作成した重要ファイルを...
-
ファイルは何で構成されている...
-
exeファイルをデータ転送サービ...
-
リンクの張り付けかたを教えて...
-
exeファイルの中身を見る方法は...
-
参照するファイルをワイルドカ...
-
CRCが一致する確率
-
C言語---ファイルに出力したデ...
おすすめ情報