Excel VBA 質問スレ Part70at TECHExcel VBA 質問スレ Part70 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト750:デフォルトの名無しさん 21/05/08 14:01:23.31 75Tkj6otd.net >>742 綺麗か綺麗でないかって尺度だとなんともだけど丁寧に書こうとしてるのは伝わるので応援したい パフォーマンスとか考えるともう少し良くできそうなのと、個人的には関数を小さく分けた方が見通しが良くなるかもしれない（ちょっと曖昧な表現になってすまない） 751:デフォルトの名無しさん 21/05/08 14:50:38.57 PaQQNn710.net 俺ならこうなるかなぁ ただ書いてて思ったけど、index(match(),match())で済むような？ Sub () foo Set 元シート = Worksheets("練習15") Set 転記先シート = Worksheets("練習15_回答") 転記先シート.Range("A1:B2").ClearContents For i = 2 To 元シート.Cells(元シート.Rows.Count, 1).End(xlUp).Row 転記列 = 2 Do Until 転記先シート.Cells(1, 転記列) = 元シート.Cells(i, 1) 転記列 = 転記列 + 1 Loop 転記行 = 2 Do Until 転記先シート.Cells(転記行, 1) = 元シート.Cells(i, 2) 転記行 = 転記行 + 1 Loop 転記先シート.Cells(転記行, 転記列) = 転記先シート.Cells(転記行, 転記列) + 元シート.Cells(i, 3) Next End Sub 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch