マクロ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ランキング
-
合計3TBのデータのハッシュ値を...
-
教えて下さい
-
VBA 空白セルを削除ではない方...
-
多量のSUMIF式を軽くしたい
-
【エクセル】測定時間がバラバ...
-
配列でデータが入っている要素...
-
エクセルで2つの時系列のデー...
-
メモ帳(テキストデータ)をExc...
-
C言語プログラム変更
-
Matlab:plotで特定の値だけをプ...
-
Excelのマクロでワードのテキス...
-
シーケンサにパソコンからアク...
-
VBAを使ってOutlookメール本文...
-
matlabでの標高断面図の作成
-
ウィンドウ枠の固定を行の2箇所...
-
パースとはなんですか?
-
Accessで該当データにフラグを...
-
ビットシフトについて
-
VBA & easycomm で長時間測定の...
-
配列の勉強をしています。使用...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
教えて下さい
-
配列でデータが入っている要素...
-
【エクセル】測定時間がバラバ...
-
メモ帳(テキストデータ)をExc...
-
VBA 空白セルを削除ではない方...
-
多量のSUMIF式を軽くしたい
-
Excelのマクロでワードのテキス...
-
エクセルで2つの時系列のデー...
-
この行は既に別のテーブルに属...
-
VBAを使ってOutlookメール本文...
-
シーケンサにパソコンからアク...
-
EXCELVBAでSQLserverからデータ...
-
ブレーカー落ちで壊れたりしな...
-
[C言語] コメント文字列を無視...
-
オープンチヤットでデータ削除...
-
モジュラス103の算出方法について
-
javaでDBからデータを取ってき...
-
カンマからスラッシュに
-
VBA 毎日取得するデータを順番...
-
Android携帯をUSBメモリ代わりに
おすすめ情報