Gizport
1 回答
0
Share (facebook)
58
view
全般

エクセルのマクロ作成に困っております、どなたか知恵をお貸しください。...

エクセルのマクロ作成に困っております、どなたか知恵をお貸しください。
以下のような表の構成で、C行で0以外の数値のみのセルAの番号を
抽出行のセルに表示させたいのです。
よろしくお願い申し上げます。 A B C
1 A100
2 B 0
3 C 100
4 D 0
5 E 0
以下100行まで

セルD-抽出行(セルA1からA100までの該当番号)
1
3
50
99

表現が稚拙で申し訳ありません。
Yahoo!知恵袋 4892日前
コメントする
お気に入り
1
質問者が選んだベストソリューション
shumari_kさん

C列が「0」以外のとき、A列の同行の数字をD列に抽出します。

Sub sample()
Dim c As Range, cnt As Long
For Each c In Range("C1:C100")
If c <> 0 Then
cnt = cnt + 1
Cells(cnt, 4) = c.Offset(, -2)
End If
Next c
End Sub
Yahoo!知恵袋 4888日前
シェア
 
コメントする
 

参考になったと評価
  このQ&Aは参考になりましたか?

Share (facebook)
その他の解決方法を知っていますか?
回答する
全般
62
Views
質問者が納得Alt+↓で、その列に入力してある項目を選択できますよ。 前提は、すでに○、×、△が列Aに入力済みであることです。 王道は、入力規則を使うがいいのでしょうけど、お手軽なのはこちらですね。 入力規則を使うと、新しい項目を追加するのが少し面倒なので、 ☆Altキーとカーソルキーの下を同時押しです。
4610日前view62
全般
78
Views
質問者が納得A100とかB200は1つのセルに入力しているのでしょうか。 足し合わせることを考えると、別のセルに入力しましょう。 Sheet1に元データ 1行目 A列1月・C列2月・・・ 2行目以降 A列記号・B列数値・C列記号・D列数値・・・ Sheet2で集計 B1に1月・C1に2月・・・ A2:A6にA・B・C・D・E B2セルに次式を入れて、縦横にコピーします。 =IF(COUNTIF(OFFSET(Sheet1!$A$2,,MATCH(B$1,Sheet1!$A$1:$X$1,0)-1,4),$A2),...
4612日前view78
全般
49
Views
質問者が納得作業列を利用すれば一般機能で十分可能です。 付図参照 B1=MID(A1,2,FIND(".",A1)-2) フィルハンドルをダブルクリック この列をキーに昇順ソートします。
4615日前view49
全般
61
Views
質問者が納得式を作る過程にて, テストをしやすくするため表記をかんたんにしてます ex. タイトル, 年月->エクセル標準のシリアル値, アイテム名 etc ◇表は画像の位置に置きましたので、実用には適宜、式のセル位置を変えて下さい ID,A6: =IF(ROW(A1)>COUNT($D$1:$H$1)*COUNTA($A$2:$A$3),"",OFFSET(A$2,ROUNDUP(ROW(A1)/COUNT($D$1:$H$1),0)-1,)) と入力し、↑A6の式を C6 ま...
4615日前view61
全般
43
Views
質問者が納得セルO1に「大根」、セルO2に「4月」と指定するとして、 P1=SUMIF(A2:A100,O1,OFFSET(A1,1,MATCH(O2,A1:E1)-1,100)) 上記でいかがでしょう? 1行目の4月、5月・・・とセルO2の「4月」は全角半角の間違いを防ぐために数字だけを入力するようにして、表示形式で「○月」とするのがいいと思います。
4629日前view43

取扱説明書・マニュアル

822view
http://fujifilm.jp/.../ff_a100_mn_j101.pdf
116 ページ5.56 MB
もっと見る

関連製品のQ&A