![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
マクロVBA初心者で下記のコードでコピー&貼付けを追加したいと思いますが、
追加方法が分かりません・・・
下記では指定した行列のデータをコピーして転記先の行列へ貼付けをしています。
作成した担当者が不在となり、コピー&貼付けをもう一つ増やしたくて色々と試しましたが上手くいきません。分かる方がみえたら教えていただけませんでしょうか。
Option Explicit
Sub openFolder(path As String)
Shell "C:\Windows\Explorer.exe " & path, vbNormalFocus
End Sub
Sub データ転記()
Dim i, j As Variant '行指定用変数
Dim sc As Variant 'データ転記元列番号指定
Dim tc As Variant 'データ転記先列番号指定
Dim sr As Variant 'データ転記元行番号指定
Dim tr As Variant 'データ転記先行番号指定
Dim sb As Workbook 'データ転記元ブック
Dim ss As String 'データ転記元シート
Dim tb As Workbook 'データ転記先ブック
Dim path As String 'フォルダパス
Set sb = ThisWorkbook
ss = ActiveSheet.Name
'元先の行列番号指定
sc = 7
tc = 7
sr = 4
tr = 4
'フォルダパス指定
path = "C:\Users\kawba\Downloads\原料\新しいフォルダー"
'転記先ブック指定
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = False
.Filters.Add "Microsoft Excel ブック", "*.xlsx", 1 'ファイル形式指定
.Title = "転記先ファイルを選択してください" 'ダイアログボックスメッセージ指定
.InitialFileName = path
If .Show = False Then
Exit Sub
End If
Set tb = Workbooks.Open(.SelectedItems(1)) 'ファイル名取得
End With
i = sr
j = tr
Do Until sb.Worksheets(ss).Cells(i, sc) = ""
tb.Worksheets("Sheet2").Cells(j, tc) = sb.Worksheets(ss).Cells(i, sc)
i = i + 1
j = j + 1
Loop
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- Visual Basic(VBA) 【前回の続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/16 16:44
- Visual Basic(VBA) VBA 別ブックからの転記の高速化について VBA 別ブックからの転記の高速化についてご教授下さい。 19 2022/07/26 13:07
- Visual Basic(VBA) VBAのユーザーフォームのテキストボックスに入力制限をしたい 6 2022/11/15 08:28
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたいの続き 5 2023/01/24 00:16
- Visual Basic(VBA) VBA 参照先で選んだファイルをコピーし、出力先に別名で保存したい 8 2022/05/13 20:37
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Visual Basic(VBA) VBAでoutlook365が起動しません。 4 2022/08/25 13:31
- Visual Basic(VBA) いつもお世話になっております、VBAで教えて頂きたいのですが 2 2022/05/05 22:20
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
教えて下さい
-
配列でデータが入っている要素...
-
Accessで該当データにフラグを...
-
メモ帳(テキストデータ)をExc...
-
この行は既に別のテーブルに属...
-
【エクセル】測定時間がバラバ...
-
VBA 空白セルを削除ではない方...
-
[エクセル]データの個数が2番目...
-
Sheet2の日付をキーにオートフ...
-
VB6のListの使い方
-
S9タイプからXタイプにデータ...
-
カンマからスラッシュに
-
C# ソケット通信でデータ受信時...
-
Excellで並べ替えについて(記号...
-
ActiveReportについて
-
シーケンサにパソコンからアク...
-
EXCELVBAでSQLserverからデータ...
-
CString型の文字列連結について
-
ユーザーフォームのテキストボ...
-
fortranでフーリエ変換→パワー...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
教えて下さい
-
配列でデータが入っている要素...
-
【エクセル】測定時間がバラバ...
-
メモ帳(テキストデータ)をExc...
-
この行は既に別のテーブルに属...
-
VBAを使ってOutlookメール本文...
-
VBA 空白セルを削除ではない方...
-
S9タイプからXタイプにデータ...
-
多量のSUMIF式を軽くしたい
-
Accessで該当データにフラグを...
-
[C言語] コメント文字列を無視...
-
[エクセル]データの個数が2番目...
-
エクセルで2つの時系列のデー...
-
特定のデータの抽出方法を教え...
-
外部データの更新がうまくでき...
-
ActiveReportについて
-
CString型の文字列連結について
-
ユーザーフォームのテキストボ...
-
カンマからスラッシュに
-
シーケンサにパソコンからアク...
おすすめ情報