シートの加工場設定マスタの列が最初は、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が見つからない時は、教えて!gooで質問しましょう!

このQ&Aと関連する良く見られている質問

Qエクセルで同じA列の中に、1,2,3,4,5,6,2,3,4,2,1,3,2,2,2,3,1という

エクセルで同じA列の中に、1,2,3,4,5,6,2,3,4,2,1,3,2,2,2,3,1,3,1というような順番で数字が並んでいます。

その数字の中で、1→3と3→1になるものがいくつあるか求めたいのですが、出す関数・マクロがわかりません。
教えていただけないでしょうか?

よろしくお願いします。

Aベストアンサー

こんばんは!

>A列の中に
とは行方向に数値が入っている!というコトでしょうか?

そうであれば
表示したいセルに
=COUNTIFS(A1:A1000,1,A2:A1001,3)+COUNTIFS(A1:A1000,3,A2:A1001,1)
としてみてください。

「1」の次の行が「3」の場合と
「3」の次の行が「1」の場合をプラスしています。m(_ _)m

Qエクセルの列表示を1,2,3,からA,B,C,に戻したい。

初期状態では、エクセル行は1,2,3,~、列はA,B,C,~となっていると思いますが、先日知り合いからもらったエクセルファイルは列も1,2,3,~となっていました。
どうしたら、A,B,C,~に戻せますでしょうか?
教えて下さい。

Aベストアンサー

「ツール」→「オプション」→「全般タブ」で「R1C1参照形式を使用する」のチェックを外して下さい

QエクセルでA,B,C,D,Eなどの列名の法は?

エクセルでA,B,C,D,Eなどの列名をコピーする方法をお教えください。

よろしくおねがいします。

エクセル2000です。

Aベストアンサー

前提条件として
(1)「A,B,C~の列名をコピー」ということを「セルの中に取り込みたい」という風に認識
たとえば、B5のセルにある関数を入れて、結果として「B」と出力させるということです。

の場合、
何所でもいいのでおもむろに
=CHAR(COLUMN()+64)
と打ってみてください。

これで、上記の列名と同じ文字がセルに入力されたことと思います。なぜ64なのかについては、文字コードについて調べて頂ければわかるかと。


(2)「A,B,C~の列名をコピー」ということを「表をコピーしたときにA,B,Cも一緒にコピーしてどこかに貼り付けたい」という風に認識

であれば、1行目に(1)で書いた方法を使って文字を埋め込んでおけば擬似的にはありますがコピー>貼り付けが可能です。

認識が全く違っていた場合は役に立たないかもしれません。

では。

QB列からAH列を条件付きでAutoFitしたいのですが、For Nextでうまく書けません

よろしくお願いします。いつもgooの皆さんには大変お世話になっています
エクセルは2013です
B列からAH列を条件付きでAutoFitしたいのですが、For Nextでうまく書けません
途中まで書いたマクロです

If Not Intersect(Target, Range("$O$40")) Is Nothing Then
Cancel = True
For i = 2 To 34 '列Bから列AHまでの
各列31行目がHまたはhでなければ、その列をAutoFit
Next i
End If

For Nextの間に日本語で書いた部分はマクロでどう書いたら良いでしょうか
どなたか教えてください

Aベストアンサー

こんばんは!

Sub Sample1()
Dim i As Long
For i = 2 To 34
If Cells(31, i) <> "H" And Cells(31, i) <> "h" Then
Columns(i).AutoFit
End If
Next i
End Sub

もしくは

Sub Sample2()
Dim i As Long
For i = 2 To 34
If UCase(Cells(31, i)) <> "H" Then
Columns(i).AutoFit
End If
Next i
End Sub

こんな感じではどうでしょうか?m(_ _)m

QExcel 列がA,B,C...ではなく1,2,3になっている。これを直すには

通常
A B C D E
1
2
3
4
5
のようになっているのですが、
1 2 3 4 5
1
2
3
4
5
となっています。処理等問題はないのですが、
セル指定が指定のセルからの位置指定になってしまい
RC[1]:RC[1]のようになったりしています。

通常のように戻すにはどうしたらいいのでしょうか

Aベストアンサー

[ツール]-[オプション]-[全般]で、
[R1C1参照形式を使用する]をOFF。


人気Q&Aランキング

おすすめ情報