A100 シートの解決方法

質問者が納得Sheet2のA1へ =INDEX(Sheet1!A$1:A$100,(ROW(A1)-1)*10+1) あるいは =OFFSET(Sheet1!A$1,(ROW(A1)-1)*10,) A10までオートフィル（コピー）

質問者が納得> 下式ではダメなのでしょうか？ 空白セルの値は、0 なんです。 セルA1を空白にして B1に =A1 と入れると 0 になりますよね。 0 < 0.41 は True(真)ですから これも Countします。 ですから ダメなんです。 =SUMPRODUCT((A1:A100<>"")*(A1:A100<0.41)*(B1:B100="+")) のように 「(A1:A100<>"")*」を付加すると 例え...

質問者が納得b10_meimeiさん A列の車両のみの入れ替えですネ。。 マクロ案です。 下記のコードを指定された要領で張り付けて、、 最初のセルは普通どおりクリックして、 2回目のセル選択は「Ctrl」を押下したままクリックすると、 下図のように「入れ替えますか?」のメッセージボックスが出ますので、 「はい」をクリックすると入れ替えます。 「いいえ」をクリックするとキャンセルされます。 Private Sub Worksheet_SelectionChange(ByVal Target As Range) St...

質問者が納得｛補足をみて｝ では以下の通りに変更いたします シート2のA3: =IF(ROW(A1)>COUNTIF(シート1!$A$2:$A$100,$A$1),"",INDEX(シート1!C:C,SMALL(INDEX((シート1!$A$2:$A$100<>$A$1)*10^3+ROW(シート1!$A$2:$A$100),),ROW(A1)))) と入力し、↑A3の式を下へドラッグしてフィルコピーしてください なお シート名は シート1 として、数字は半角です //

質問者が納得hotennmaoさん Sheet2の B1=SUM(OFFSET(Sheet1!A1:A100,,A1-1)) でしょうか。。

質問者が納得コピーすればいいんじゃない？ もしくは、直してから。 オートフィルの理解間違ってないかな。 ブックそのものが違うと 甲A１＝乙$A$1 こうなりませんか？ これをオートフィルしたら・・・・・。

質問者が納得=LENB(A1) で、A1のバイト数がわかりますよ。

質問者が納得◆Sheet1のC列を作業列とします。 C2=IF(B2="","",ROW(A1)) フィルダウン Sheet2の A2=IF(COUNT(Sheet1!$C$2:$C$100)<ROW(A1),"",INDEX(Sheet1!A$2:A$100,SMALL(Sheet1!$C$2:$C$100,ROW(A1)))) B2へコピペして、A2:B2をドラッグしてフィルダウン ◆作業列を設けない場合（配列数式） A2=IF(CO...

質問者が納得標準モジュールとして記述。エラー処理はしていません。 Sub test() Application.Goto Range("A:A").Find(Date), True ActiveWindow.SmallScroll Down:=-4 End Sub