FinePix A500 A1の解決方法

質問者が納得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...

質問者が納得範囲選択し Ｃｔｌｒ＋Ｈ 置換で 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...

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

質問者が納得ファイル名をA1.txtにしたいというので1ファイルを生成したいのかと思いましたが、 500個ファイルを作りたいなら下の通り。ファイル名は A1 (番号）.txt になります。 htmlファイルを作りたいなら".txt"を ".html"に変えて下さい。 Sub TXT2() Dim FN As Integer, i As Long, FNN, PS As String PS = ActiveWorkbook.Path FN = FreeFile For i = ...

質問者が納得B列に1を入力してオートフィルします。 （1～A列最後500位まで数を振ります） B列を1行目から500行目までコピーしてB列最後にくっつけます。 B列で並び替え（昇順）をします。 これで一行置きに出来ます。 後はB列を削除してください。

質問者が納得列番号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...