FinePix 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...

質問者が納得=AVERAGE(B1:INDEX(B:B,COUNT(A:A))) でいかがでしょうか？ 別シートで算出するなら、↓のようになります。 =AVERAGE(Sheet1!B1:INDEX(Sheet1!B:B,COUNT(Sheet1!A:A)))

質問者が納得こんにちは～＾＾ 11/2と1/12の違いってどう判断しましょ？

質問者が納得別ページ とは？　別シートとすると・・・あと一歩ですね？ VLOOKUP(検索値,範囲,列番号,検索の型)　・・・ですから >A1~A500に当てはまる数字の右がわのあたいをD2にもってくる｡式8D2､別表!$A$1:$B$500,2)　なら 別表 が　Sheet1(データ元）　なら・・・・・ =VLOOKUP(A2,Sheet1!$A$1:$A$500,2,False) これを　D2 （セルD2に入力）　下方向　500行までコピーします

質問者が納得メニュー→「ツール」で「ソルバー」が表示されていればOK→メニュー→「ツール」で「ソルバー」が表示されていなければ，「ツール」→「アドイン」で「ソルバーアドイン」にチェックを付ける→(1) 右のようにｘ，ａ，ｂ，ｃの値を入力しておく→セルF2には２次関数の計算式を書き込んでおく：→=B2*A2^2+C2*A2+D2→メニューから「ツール」→「ソルバー」→目的セルをF2とする→目標値で「最小値」を選択→変化させるセルをA2とする→「実行ボタン」をクリック→「解を記入する」でＯＫhttp://www.geisy...