FinePix A500 Sheet1の解決方法

質問者が納得１つ目の最後の文字が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)))

質問者が納得0:00～1:59はSheet2のB2で　=COUNTIF(Sheet1!$A$2:$A$500,"<2:00") 2:00～3:59はSheet2のB3で　=COUNTIF(Sheet1!$A$2:$A$500,"<4:00")-COUNTIF(Sheet1!$A$2:$A$500,"<2:00") 4:00～5:59はSheet2のB4で　=COUNTIF(Sheet1!$A$2:$A$500,"<6:00&q...

質問者が納得B2に以下のように入力して、B22までコピーして下さい。 =INDEX(Sheet1!$A$101:$A$150,INT(RAND()*50)+1) 表示させたい範囲を変更する場合は Sheet1!$A$101:$A$150 の"101"と"150"の部分をそれぞれ変更。同時に、RAND()*50 の"50"を単語の数（例では101～150までの50単語）に合わせて修正し、その修正した関数を再度B22までコピーして下さい。

質問者が納得Wordのハイパーリンクの設定でExcelのファイルを指定したら、ファイル名に続けて#Sheet1!A500のように記述します。つまり、ハイパーリンク先をC:・・・・・・aaa.xls#Sheet1!A500というふうに指定します。

質問者が納得参照先のブックを開かずに計算する方法は原理的に存在しえません。配列数式を使っても回避できません。あなたが調べられた情報が間違っているか、誤読なさっているかどちらかです。見かけ上、開いていないように見えるよう、バックグランドで開くという方法はないではありませんが、そういう方法を取られたのなら、配列数式でなくCOUNTIFを使っても同じですから、COUNTIFを使用した計算式を配列数式に修正したら成功したというのは何かの間違いだと思います。補足失礼しました。COUNTIF関数で開かれていないブックが参照できない...