画像のファイルの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も見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
Excel 大なり小なりを表すとき、 例えば「10以上」なら、>=10 と表せますが、 この10の部
Excel(エクセル)
-
excelの不要な行の削除ができない!
Excel(エクセル)
-
excelマクロ 冒頭3文字が一致するファイルのコピー移動
Excel(エクセル)
-
-
4
エクセル関数について教えてください
Excel(エクセル)
-
5
エクセルのマクロで、資料を呼び出していますが、それを保存せずにしまい込む方法を教えてください。
Excel(エクセル)
-
6
【Excel(エクセル)】複数シートで名簿管理したいです(数式?マクロ?)
Excel(エクセル)
-
7
Excelでこういう年を切り替えられる簡易なカレンダーを作ったのですが、 年や月を変えると、色が付い
Excel(エクセル)
-
8
Excelの関数に関する質問です
Excel(エクセル)
-
9
excel access連携 このテーブルは空ですと表示
Excel(エクセル)
-
10
Excelのマクロで、セルを結合してその結合したセルに斜線「右上から左下」が出来るようになるコードっ
Excel(エクセル)
-
11
エクセルで2桁から5桁の数字があります。その数字のダブリを解消する方法を教えてください。
Excel(エクセル)
-
12
Excel 集計表
Excel(エクセル)
-
13
セルの結合の連続技
Excel(エクセル)
-
14
式の解読のお願いm(_._)m
Excel(エクセル)
-
15
エクセル マクロ 別シートから実行すると動かない
Excel(エクセル)
-
16
Excel VBAで、実行時にsheet上のコマンドボタンのCaptionを変更する。
Excel(エクセル)
-
17
エクセルで比較 かつ 部分一致について
Excel(エクセル)
-
18
Excelで、ファイル名、シート名を指定するとその内容を同ファイル別シートに値だけ貼り付ける方法
Excel(エクセル)
-
19
Excelセルの参照先の取得
Excel(エクセル)
-
20
Googleシート「A1」でなくて「A001」にしたいのですが
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
アクセス 壊れた? 「ファイ...
-
Latexで図番号だけを「図1.1」...
-
binファイルを解凍したいの...
-
exeファイルをデータ転送サービ...
-
Seasar2のdiconファイルの読み方
-
HTMLからのBATファイル実行
-
ディレクトリの監視と変更ファイル
-
XPでVB6.0ディストリビューショ...
-
CSVから指定行だけを読み込み
-
VBAで特定の場所にあるCSVファ...
-
コマンドプロンプトで、指定し...
-
warファイルをEclipseでプロジ...
-
参照するファイルをワイルドカ...
-
ハイパーリンクされたJPGファイ...
-
公文書のxmlファイルの開き方が...
-
パイソンでpy ファイルと p...
-
vbsにてショートカットが存在す...
-
Word VBA MSGBOX 内で降順表示
-
Batファイルをバイナリ形式にす...
-
CSSを1ページに1枚作るのって変...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
アクセス 壊れた? 「ファイ...
-
#include <Windows.h>というヘ...
-
Latexで図番号だけを「図1.1」...
-
binファイルを解凍したいの...
-
.NETアプリを作ったときの .man...
-
ファイル構造が破損しているフ...
-
2つのファイルのバイナリをコン...
-
CSSを1ページに1枚作るのって変...
-
Word VBA MSGBOX 内で降順表示
-
公文書のxmlファイルの開き方が...
-
jarファイル
-
バッチ処理で追記コピーしたい
-
自分で作成した重要ファイルを...
-
ファイルは何で構成されている...
-
exeファイルをデータ転送サービ...
-
リンクの張り付けかたを教えて...
-
exeファイルの中身を見る方法は...
-
参照するファイルをワイルドカ...
-
CRCが一致する確率
-
C言語---ファイルに出力したデ...
おすすめ情報