|
▼超初心者 さん:
>最初に入れてしまってはいかがでしょう。
↑
シート数が決まってないため、
例えば、シート【1】のデータが結果的に6万件以上ある場合があると、シート【1】をシート追加させようと考えてもいます。
この場合の対処はどうしたらよいのでしょうか?
何度もすみませんがよろしくお願いします
>
>Dim myHedF As Boolean
>
>myHedF = True
>
>> 〜
>
>> Line Input #1, Mystring
>> Mystring = Replace(Mystring, """", "")
>
>> MyVar = Split(Mystring, ",")
>
>If myHedF Then
> Sheets(Array("1", "2", "その他")).Select
> For q = 0 To UBound(myVar)
> Cells(MaxR + 1, (q + 1)).Activate
> ActiveCell.Value = myVar(q)
> Next q
> myHedF = False
>End If
>
>> 〜
>
>
>こんな感じで。
|
|