FinePix A500 セルの解決方法

質問者が納得はじめたばかりみたいなので こんにちは。 Range("A1").Copy ’A1をコピー Range("A1000").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues 'A1000（ここはおそらくこれ以上登録しないだろうと思われる行数で良いと思います。1000は任意で変更して下さい） 'A1000から登録済み最終行まで行って、1段下げたところ（offset(1,0)）に値のみ貼付け ...

質問者が納得A,B,C,Dそれぞれのパーセンテージの出し方は Aは「=A/E」、Bは「=B/E」、Cは「=C/E」、Dは「=D/E」です。 出した結果を％で表示したければ、セルの書式表示で「％」を指定してください。そうすれば100倍された数値で表示されます。

質問者が納得End Subの前の行に Worksheets("sheet2").Range("A1").Formula = "=SUM(A1:A500)" を入れるとどうですか

質問者が納得１つ目の最後の文字がBの場合 Sub Macro1() Dim I As Long '変数を定義しただけです For I = 1 To 500 '1～500行まで繰り返す If Right(Cells(I, 1).Value, 1) = "B" Then 'A列のI行の値の最後の1文字が"B"ならば以下を実行、違えば次の行へ移動する Range(Cells(I, "A"), Cells(I, "Z")).Cut '対象の行のA～...

質問者が納得> A1からA500までに～ > A510（510行目）へ貼り付け、 > 400行目を削除する 文字を含むデータと含まないデータの間に 空白行を９行挿入し、全体を５０９行とする、 と想定します。 （違う場合は適宜変更して下さい） ------------------------------------------- 作業列を２列挿入します（例えばＢ列・Ｃ列） Ｂ列には１から順に５００まで入力（フィル） C1 =IF(ISERR(MID(A1,9,1)*1),1,0) C500...

質問者が納得＝Ａ1/＄Ａ＄500 となります。 数式を入力する際、 「A500」セルを選択したら 「F４」キーで＄マークがつきます。 そのままEnterで確定してみてください。 あとは、オートフィルをしてもA500は固定されています。

質問者が納得範囲選択し Ｃｔｌｒ＋Ｈ 置換で 2010 を 2009 に置換

質問者が納得データはA1からA1000に書かれているとします。 B1セルに =ROW(B1) と入力してください。 C1セルに =COUNTIF(A$1:A$1000,B1) と入力してください。 B1とC1をコピー元として､縦方向に1000行コピーしてください。 B列の数値がA1～A1000までの中に何個あるかがC列に表示されています。 これで大丈夫でしょうか。 不明な点や、不都合があれば補足で聞いてください。 ●●●追記●●● 先の回答のB列をD列へ移動、C列をB列へ移動してください。 さらに新しくC...

質問者が納得> 少々お客様には失礼ですが・・・ 顧客にランク付けをするのは 失礼なことじゃないでしょ。むしろしなくて はいけないことだと思いますけど。 それはともかく あなたの質問の仕方では「以上」「以下」「未満」「超」 の区別が付きません。よって手順だけ書きます。 まず売上から順位を出します。 RANK関数を使えば出せます。 次に その中の最低位（200位なら200）で それぞれの順位を割り 順位 構成比を出します。 最後に MATCH関数でランク分けをすればいいでしょう。 以上以下未満超の区別が付きませ...