###前提・実現したいこと
前回の質問(https://teratail.com/questions/102850)で習得させていただいたデータ転記の方法で、異なるエクセルデータ郡の取り込みを試しています。
###発生している問題・エラーメッセージ
順調に転記できるようになったと思いましたが、
転記元のファイルによって、転記されるデータにばらつきが出てしまっております。
転記元は下記のようなデータです。
うまくいくと、B37:M42まで転記されるのですが、
例えば、B37:M39までの一部しか転記されないファイルが出てきました。
セル範囲の指定をいろいろ変更してみたのですが、うまく実行できません。
修正のヒントをいただけると幸いです。
よろしくお願いいたします。
###該当のソースコード
Option Explicit
Sub 見積り転記()
'前提条件
'- 転記元のシートを前面に表示していること
'- 転記先のシートがこのマクロが書かれいるブックであること
If Excel.ThisWorkbook Is Excel.ActiveWorkbook Then Stop '転記先と転記元が同じブック Exit Sub End If '転記元のシートを取得 'Excelで今アクティブなシート Dim copyWs As Excel.Worksheet Set copyWs = Excel.ActiveWorkbook.ActiveSheet '転記先のシートを取得 'マクロが書かれているブックの、アクティブなシート Dim pasteWs As Excel.Worksheet Set pasteWs = Excel.ThisWorkbook.ActiveSheet '入力する空白セルの指定 Dim pasteCell As Excel.Range '元の処理の`InputRow`に相当する場所のセル Set pasteCell = pasteWs.Cells(pasteWs.Rows.Count, "A").End(xlUp).Offset(1) 途中省略 '該当部分→作業内容~金額'を開いている転記元からコピーして転記先にペースト Set pasteCell = pasteWs.Cells(pasteWs.Rows.Count, "D").End(xlUp).Offset(1) Dim sagyokingakuCell As Excel.Range With copyWs Set sagyokingakuCell = _ .Range( _ .Range("B37:M37"), _ .Range("B37:M37").End(xlToRight).End(xlDown) _ ) End With 'copyWs sagyokingakuCell.Copy pasteCell.PasteSpecial Paste:=xlPasteValues, _ Operation:=xlNone, _ SkipBlanks:=False, _ Transpose:=False
End Sub
回答1件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
退会済みユーザー
2018/01/19 02:53
2018/01/19 04:06
退会済みユーザー
2018/01/19 04:25