シートの加工場設定マスタの列が最初は、B列の4行目からD列の30行まで
あったのですが、B列が不要になったのでB列を削除しました。
下記のようなマクロを記述していますが何処を修正すればよいか
教えてください。

Private bmas(20,3)
Sub Kmas_call()
Dim i As Integer, j As Integer, k As Integer
Windows("加工品.xls").Activate
Sheets("加工場設定マスタ").Select
For i = 1 To 20
For j = 1 To 3
Bmas(i, j) = Cells(i + 4, j + 1)
Next j
Next i

End Sub

A 回答 (1件)

B列を削除して必要なデータ列はB、Cの2列になり、


配列Bmas()に代入される値の意味あいは元のままだとすると

For j = 1 To 2
 Bmas(i, j+1) = Cells(i + 4, j + 1)
Next j

ということでしょうか。
    • good
    • 0
この回答へのお礼

わかりました。ありがとうございました。

お礼日時:2002/03/20 08:42

このQ&Aに関連する最新のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人が検索しているワード


このカテゴリの人気Q&Aランキング

おすすめ情報

カテゴリ