>>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■ このスレッドは過去ログ倉庫に格納されています
ニュース
- 自民・森山氏 コメ価格「安ければいいというものではない」 農家に再生産してもらえる価格を目指すべき [少考さん★]
- 亀田和毅のボクシング世界戦に島田紳助氏がリング上にサプライズ登場 場内騒然 亀田興毅氏の涙にもらい泣き [muffin★]
- 「やっぱ買うのやめた!」増殖するセルフレジ放置民 「現金使えない」「操作間違えた」会計途中で諦め商品置きっぱ…店側も対応苦慮 ★2 [ぐれ★]
- 【サッカー】バイエルン、三笘薫獲得名乗り 独スカイスポーツ報じる [久太郎★]
- 若者が乱発する「やばい」 便利な言葉の一方で語彙力不足に懸念 [バイト歴50年★]
- 芸能】中居正広氏の代理人が音声データを再要求「開示できるはず」 第三委の“ゼロ回答”受け ★6 [ひかり★]
- 小泉進次郎「減反とか馬鹿か?作りまくって余ったのは輸出すればいいだろうが」 [402859164]
- 【悲報】「ユスリカと安倍晋三」の画像(非AIコラ)、流石に存在しない。彼にも限界があるんだな [309323212]
- 野田佳彦「厚生年金と国民年金を一体化して、氷河期世代の年金を確保しろォ!!!やれぇ!!!」。。。実現へ… [252835186]
- シンプルに議員ってクズ率高くね、クズだから議員になるのか、議員になったらクズになるのか [943688309]
- 日本人、セルフレジの途中で心が折れて帰る人続出 [831811767]
- ▶ホロライブ総合スレ