Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


35503 / 76738 ←次へ | 前へ→

【46434】Re:数式の列データ最後までのオートフィル
質問  acochaco  - 07/2/3(土) 12:44 -

引用なし
パスワード
   かみちゃん さんさん、ご回答ありがとうございました!

列の最終セルの指定方法はわかりました。

>そこで、以下のようにします。
>
>Sub Sample1()
> '価格自動入力
> Dim i As Integer
> Application.ScreenUpdating = False
> '3行目で検索
> For i = Range("IV3").End(xlToLeft).Column To 1 Step -1
>  If InStr(Cells(3, i).Value, "価格") > 0 Then
>   Cells(4, i).FormulaR1C1 = "=Sheet1!R[-1]C[-5]"
>   If Range(Cells(4, i), Cells(Rows.Count, i).End(xlUp)).Count > 1 Then
>    Cells(4, i).AutoFill Destination:=Range(Cells(4, i), Cells(Rows.Count, i).End(xlUp)), Type:=xlFillValues
>   Selection.AutoFill Destination:=Range(Selection, ActiveCell.xlLastCell), Type:=xlFillValues
>   End If
>  End If
> Next i
> Application.ScreenUpdating = False
>End Sub

教えて頂いたものを記述しましたが、オートフィル昨日が
作動しませんでした。。いろいろやってみましたが
どうも自力では力不足で、
もう一度教えていただけますでしょうか。。
If Range(Cells(4, i), Cells(Rows.Count, i).End(xlUp)).Count > 1 Then
ここの、1より大きかったらという意味もすみませんが
教えて下さい。
よろしくお願いいたします。
0 hits

【46431】数式の列データ最後までのオートフィル acochaco 07/2/3(土) 9:42 質問
【46432】Re:数式の列データ最後までのオートフィル かみちゃん 07/2/3(土) 10:59 発言
【46434】Re:数式の列データ最後までのオートフィル acochaco 07/2/3(土) 12:44 質問
【46435】Re:数式の列データ最後までのオートフィル かみちゃん 07/2/3(土) 12:54 発言
【46436】Re:数式の列データ最後までのオートフィル acochaco 07/2/3(土) 13:26 質問
【46437】Re:数式の列データ最後までのオートフィル かみちゃん 07/2/3(土) 13:43 発言

35503 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free