常連

閲覧ありがとうございます。

表題の件で質問いたします。

具体的な操作手順
1. data1.xlsxの「A1:A最終行」を取得し、その範囲をコピーする。
2. 当ブック(VBAが書かれたブック)でA列の最終行に1.を転記する。
こちら操作を行いたいです。

また、もし可能であれば「複数の別ブックのデータを1つのExcelにまとめる操作」以下の操作も行いたいです。

具体的な操作手順
1. list.xlsxの1行目に書かれたファイルパスを取得
2. 取得したファイルパスの「A1:A最終行」を取得し、その範囲をコピーする。
3. 当ブック(VBAが書かれたブック)のA列の最終行に2.を転記する。
4. 1.で読み込む行を+1し、1~3をlist.xlsxの最終行まで実行


現在できているコードは以下です。
別ブックの最終行を取得することができず、躓いています。

```VBA
Sub CopyCell()
'最終行を取得
endrow = Cells(Rows.Count, "A").End(xlUp).Row + 1

With Workbooks.Open("C:\Users\aaa\Desktop\test.xlsx")
    '「貼付元」シートを全部コピー（★ここの最終行の取得方法がわからないです。）
    Range("A1").Value = r
    .Worksheets("Sheet1").Range("A" & 1 & ":A" & endrow).Copy
    'このブックの「貼付先」シートへ値貼り付け
    ThisWorkbook.Worksheets("Sheet1").Cells(endrow, 1).PasteSpecial _
        xlPasteValuesAndNumberFormats
    'コピー中状態を解除
    Application.CutCopyMode = False
    'ブックを保存せずに閉じる
    .Close False
End With
End Sub
```

VBA：別ブックの最終行までのデータをコピーし、当ブックの最終行に転記する方法。

Google Colaboratory使用時に、コピーした文字列をセル内に貼り付けしたい(右クリック→貼り付け)のですが、何か良い方法はありませんか？
GPUの割り当ての詳細を見るコードなどを、いちいち打ち込みたくないのですが、仕方ないのでしょうか...

Google Colaboratory利用時の文字列のコピーアンドペーストについて

###前提・実現したいこと
.txtテキストファイルに保存してある文字行の中から、特定の文字行に挟まれた行を選択し、Excel2010でマクロを使って、Excelに貼り付けたいです。例えば、

＜テキストファイル例＞ ※例なので実際のテキスト内容は下記に限らず。
東京
大阪
名古屋
広島
福岡
鹿児島

＜上記の内、コピーしたい行＞ ※大阪から福岡までの行を選択したいです。
大阪
名古屋
広島
福岡


###該当のソースコード
Sub PasteFromCSV()
Const CSV_FILE = "c:\temp\command.txt"
Dim ReadWBk As Workbook
Dim WriteWBk As Workbook
Dim WriteSht As Worksheet
Dim Rng As Range

Set WriteWBk = ActiveWorkbook
Set WriteSht = WriteWBk.ActiveSheet

Set ReadWBk = Workbooks.Open(CSV_FILE)
Set Rng = ReadWBk.Worksheets.Item(1).UsedRange
Range("A1:A170").Copy

WriteSht.Range("A1").PasteSpecial xlPasteValues, xlPasteSpecialOperationNone, False, False

ReadWBk.Close
Set ReadWBk = Nothing
End Sub


###試したこと
IFやFINDを試そうとしたのですが、どの構文がよいのか分からず、本問合せに至った次第です。

###補足情報(言語/FW/ツール等のバージョンなど)
EXCEL2010で試しています。

テキストファイルから特定の文字列に挟まれた行をEXCELマクロを使ってコピーし貼り付けたい

顧客のサーバーリプレースなどで古いサーバー（＝数年前のサーバーでCPU,Disk I/O性能が低い）から新しいサーバーにファイルをコピーします。
− よく有るケース　500万ファイル以上／トータルサイズ2TB以上

ファイルコピーに24時間以上かかることも結構あります。
社内で似た環境を創りだすのが難しく、以下の知見をお持ちでしたら
知恵を貸して頂けると嬉しいです。

1. 新、旧　どちらのサーバーでコマンドを動かすと効率がいいのか？
[想像]CPU,I/Oともに性能が低い旧サーバーがボトルネックになると考えられるので、旧サーバーで動かしたほうが良い。
2. rsyncのデーモンモード、compressなど転送効率が上がりそうなオプションは有効か？
3. robocopyに転送効率につながるオプションは有るか？

今の対策としては日付など条件付きで何回かに分けてコピーし、最後に完全同期させています。
顧客の本番環境なので中々思い切った事が出来ませんが、以下も試したいなぁ。試したこと有る方います？社内SEな方なら試したことあるかな。

0. 新旧サーバー間　LAN直結（ネットワーク利用率を上げる）
0. ジャンボフレームにして（パケットの効率を上げる）
0. OS標準外のコマンドでいいのがあれば（Windowsだとfastcopy？）
0. tarやzipで固めてファイル数少なくして転送する。（ファイルを固める／展開するオーバーヘッドや余分なファイル領域を考えると非現実的）
0. USB-HDDにコピー（かえって遅い？）

性能に差が有るサーバー間でデータコピーするとき、rsync、robocopyコマンドはどのマシンで動かすと性能が出ますか？

スプレッドシートのスクリプトエディタを使用して、見積一覧から受注したものを別シートにコピーする方法を探しています。
見積一覧には行ごとに日付、顧客情報、金額を入力し、チェックボックスを使用して
例えば、

☑　3/31　〇〇株式会社　123,000
☐　3/31　△△有限会社　100,000

上記のように、受注したものに☑を付けると☑を付けた行の内容が別シートへコピーされる、という方法にしたいのです。
別シートへコピーしたものは共有ファイルとして複数人で閲覧する予定です。

一度チェックをつけてコピーされたものに対して、チェックを外すとコピー先の情報も消えるというのも可能なのでしょうか？
「スクリプトエディタ、チェックボックス、連動」などで検索してはいるのですが、初心者のためうまく見つけられません。
お力をお貸しいただけると助かります。

スプレッドシートのチェックボックスに☑を入れると別シートへコピーされるようにしたい

### 前提・実現したいこと


別のブックからシートをコピーし、貼り付けをした後に、L列にある空白のセル以外を削除してから、さらに空白を詰めたいのですが、ご教授いただければ幸いです。

### 発生している問題・エラーメッセージ
L列にある空白のセル以外を削除してみたら、空白のセルも消えてしまう。
空白を詰めてみたら、文字が下に下に上書きされてしまう。

```
エラーメッセージ
```

### 該当のソースコード

```Dim wb As Workbook
Dim sh As Worksheet
Dim rE As Long
Dim i As Long
Dim toprow As Long
Dim bottomrow As Long
Dim k As Integer
Dim j As Integer

Sub main()

tyusyutu
CommandButton1_Click
Tumeru
End Sub

Sub tyusyutu()

'データのコピー
    Set wb = Workbooks.Open("C:\Book1.xlsx")
    Set sh = wb.Sheets(2)
    rE = sh.Cells(Rows.Count, "B").End(xlUp).Row
    Range(Cells(5, "B"), Cells(rE, "L")).Copy
    wb.Close
    Cells(5, "B").PasteSpecial
End Sub

Private Sub CommandButton1_Click()
'''''''''''''''''''''''''''''''''''''''''''''''''''    
    '開始する行
    toprow = 5
    '終了する行
    bottomrow = 74
    
    For i = bottomrow To toprow Step -1
        If ActiveSheet.Cells(i, 12) <> "" Then
            Range("B5:L74").Rows(i).ClearContents
        End If
    Next
'''''''''''''''''''''''''''''''''''''''''''''''''''
End Sub

Sub Tumeru()
'''''''''''''''''''''''''''''''''''''''''''''''''''
j = 5
For k = 5 To Range("B" & Rows.Count).End(xlUp).Row
If (Range("B" & k).Rows <> "") Then
j = j + 1
Range("B" & k).Resize(, 11).Copy Range("B" & j)
Range("B" & k).Resize(, 11) = ""
End If
Next k
'''''''''''''''''''''''''''''''''''''''''''''''''''
End Sub

コード
```


### 試したこと

ここに問題に対して試したことを記載してください。

### 補足情報（FW/ツールのバージョンなど）

![ほかのbookから貼り付けます。](cf775df45631a2ca2d742afc85b6088b.png)
ほかのbookから貼り付けます。
![L列の文字が入っているセルを削除しようとします。](25ffef2eed59a287a4c86ff51844f7bc.png)
L列の文字が入っているセルを削除しようとします。
![真っ白になる。](07a191cf9ecfb7249f17cce3baf436ef.png)
真っ白になる。
![下にスクロースすると、一番上の貼り付けたセルが、一番下に降りてしまう。](53ca32cf7f7ef3e58ba1984318cdd3f4.png)
下にスクロースすると、一番上の貼り付けたセルが、一番下に降りてしまう。

と、こんな感じになってしまいます。
わかりにくいかもしれませんが、よろしくお願いします。

空白行を削除せずに詰める方法を教えてください。

###前提・実現したいこと
別ExcelBook間のコピペをしたい
手順１
コピー元ファイルのシート1のある範囲をコピー
コピー先のシート１のA2に貼り付ける
手順２
コピー元ファイルのシート2のある範囲をコピー
コピー先のシート１のB2に貼り付ける
・・・以下コピー元ファイルに存在するシートの数だけ繰り返す

ある範囲：開始場所は同じで最終行の場所が変化
コピー元のシート名：毎回異なる

###発生している問題・エラーメッセージ
見よう見まねで下記コードを作成しましたが、
コピー元のシート１のある範囲をコピーし
コピー先のシート１に変数分貼り付け
コピー元のシート２のある範囲をコピーし
コピー先のシート１に変数分貼り付け
この様な状況になってしまいます。
同じ数字が並び、上書きされている状況です。

下記コードは試運転の為、シートの変数(K)は２つ、ずらす分の変数(i)は１０としてます。

###該当のソースコード
Sub test1の繰り返しシート別()
 Dim k As Long
 For k = 1 To 2
    Dim i As Long
    For i = 0 To 10
 
 Workbooks("コピー元.xlsx").Worksheets(k).Activate
 Range("a1", Range("a1").End(xlDown)).Copy ThisWorkbook.Worksheets("sheet1").Cells(2, i + 1)
    Next
 Next
 End Sub


###試したこと```
色々と試してお手上げ状態でここに書かせて頂きました。

###補足情報(言語/FW/ツール等のバージョンなど)
VBA
Excel2013

Excel別Book間のコピーをし、貼り付け時にずらしたい

### 前提・実現したいこと
OS：windows2012R2
サービスaを実行すると「C:\temp\log」配下に「A_YYYYMMDD_？.log」ファイルが生成されます。
※基本的に1ファイルですが、複数作成される場合が有ります。

サービスが起動すると同時に「C:\temp\log」配下に「A_YYYMMDD_？.log」が作成され、ログ出力が開始されます。
ログの出力処理が終わっても、サービスは自動で停止しない為、ファイルの最終更新時間から5分経過した事を判定し「\NAS\log」配下に当日生成した全ての「A_YYYMMDD_？.log」ファイルをコピーするbatを作成したいです。


以下のフローを想定して作成しています
  ①当日の「A_YYYMMDD_？.log」ファイルのタイムスタンプを抜き出す。
  ②「A_YYYMMDD_？.log」ファイルの最終更新時間が5分経過している事を判定
  ③経過していない場合は②へ。経過した場合は④へ。
  ④当日の「A_YYYMMDD_？.log」全ファイルをNASにコピーする。

①~③の処理構想が出来なく、困っております。ご助力をお願い致します。


### 発生している問題・エラーメッセージ
最終更新時間から5分経過したファイルの判定方法処理が自身の能力不足により、作る事が出来ませんでした。
フォルダの構成は以下の様なイメージです。

C:\temp\log
　A_20210412_0.log
　A_20210412_1.log
　A_20210412_2.log

### 該当のソースコード
①当日ファイルのタイムスタンプを抜き出す。
)案1
forfiles /d %DATE%' -c "cmd /c echo @ftime"

②ファイルの最終更新時間から5分経過している事を判定
③経過していない場合は②へ。経過した場合は④へ
　→②③構想が出来なくコードの作成が出来ておりません。

④当日の「A_YYYYMMDD_？.log」全ファイルをNASにコピーする。
FOR /F %i in ('forfiles /d %DATE%') do copy /Y %i \NAS\log


### 試したこと
ネット上で過去の事例など検索しましたが、近しい事象が確認できず、こちらに記載させて頂きました。


### 補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。