FinePix A500 入力の解決方法

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

質問者が納得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は固定されています。

質問者が納得仮にB1に下の式を入れて下方にコピーでいかがでしょうか？ =AVERAGE(OFFSET($A$1,(ROW()-1)*500,0,500,1))

質問者が納得通常、VBAでは条件付き書式なんて使いません。 If…Then…Elseステートメントを使って条件に合っているかどうかを判断し色付けを行います。さらに、doステートメントやforステートメントを使ってセル範囲に繰り返します。 例えば、A2:A500のセル範囲に「*」が入力されていたら灰色に塗りつぶし、空欄ならば黄色に塗りつぶすには下のようなコードになるでしょう。 For i = 2 To 500 If Cells(i, "B") = "*" Then Cells...

質問者が納得列番号Aを押下して、 データ→区切り位置1/3→何もしないで次へ2/3→次へと3/3で、 列のデータ形式で「日付」にチェックしてＯＫします。 これで8桁の数字が日付形式に変わりますので、 セルの表示形式で「H13.3.31」形式を選択してください。 （ユーザー定義で、ge.m.dとしてもＯＫです） そのうえで、B2に、 =DATEDIF(A1,"2010/6/1","Y")&"歳"&DATEDIF(A1,"2010/6/1...

質問者が納得開いていない（Ｅｘｃｅｌでデータを参照することが出来ない）ブックのデータを使う事はできません。 これに対処するには、 １）今年のブックを開く時にマクロを起動するようにしておき、マクロで去年のブックを開くと良いです。 ２）もしくは去年のブックで必要なワークシートを今年のブックにコピーしておき、関数はコピーしたワークシートを参照するようにします。ファイルサイズが大きくなりますが、１つのブックで全ての処理が済むので扱いが簡単です。（マクロで去年のブックを開く方式は、去年のブックのファイルの保存場所が判ったり、...