質問者が納得こんにちは。100～300台のデータ数は変動するのではないかと思い、その分だけ横に重ならないよう押し下げていくものと解釈したのですが、取り違えていたらすみません。Sub Insert()Dim i As IntegerDim j As IntegerDim k As Integeri = Application.WorksheetFunction.CountA(Range("A:A")) '100台のデータ数Range("E1:F" & i).Insert S...
5011日前view145
