>>454
Sub copipe()
Dim myPath As String, mybook As Variant, rs As Long
myPath = "Z:\"
mybook = Dir(myPath & "*.xlsx")
With Workbooks("aaa.xlsm").Worksheets("sheet1")
Do Until mybook = ""
Workbooks.Open (myPath & mybook)
rs = .Cells(.Cells.Rows.Count, "A").End(xlUp).Offset(2).Row
If rs = 3 Then
rs = 2
End If
.Cells(rs - 1, 1).Value = .Range("K1").Value
Workbooks(mybook).Worksheets("sheet1").Range("B2:j10").Copy .Cells(rs, 1)
Workbooks(mybook).Close
mybook = Dir()
Loop
.Range("A1:I100").ColumnWidth = ColumnWidth + 4
.Range("A1:I100").RowHeight = RowHeight + 28
End With
End Sub
1行開けのスペースの場所にある上級〜の文字はペーストするシートのK1に文字を入力したら同じ文字ばかりだけど入力される
探検
Excel総合相談所 137
■ このスレッドは過去ログ倉庫に格納されています
455名無しさん@そうだ選挙にいこう
2019/11/09(土) 11:23:42.68■ このスレッドは過去ログ倉庫に格納されています
ニュース
- 【神奈川県警】行方不明の岡﨑彩咲陽さん(20)元交際相手からのストーカー被害を警察に訴え…祖母の家に避難「事件性はない」★2 [ぐれ★]
- 【大阪】西成・小学生7人負傷事件、殺人未遂容疑で逮捕の東京都東村山市の28歳無職の男「全てが嫌になった」無差別殺人狙ったか ★3 [樽悶★]
- 【万博】インド館がついにお披露目 イギリス館では5000円“ティーセット”が物議…スコーンが1つ、紅茶は紙コップ [夜のけいちゃん★]
- 【芸能】Koki主演映画『女神降臨』後編公開も盛り上がりゼロ…早くも “黒歴史” 入りの可能性にファン嘆き [jinjin★]
- いまの憲法「よい」51% 朝日世論調査 [少考さん★]
- 『ゴリラ1頭vs人間100人』 人間が100人で立ち向かえばゴリラに勝てるのか? 勝つのはどっち? 専門家が導き出した結論とは [冬月記者★]