Results of 1 - 1 of about 7927 for VLOOKUP (0.002 sec.)
- [[20200717120548]]
- #score: 3346
- @digest: c0659dc3bd39e46a66512bdfd89cc94b
- @id: 84511
- @mdate: 2020-07-17T04:44:33Z
- @size: 2324
- @type: text/plain
- #keywords: 式" (5320), 見通 (2792), 頭シ (2667), 大列 (2525), 誤動 (2486), 数r (2324), 記記 (2142), xltoright (1559), 違和 (1301), 和感 (1296), 終列 (1196), formular1c1 (1091), ト以 (812), 原因 (759), 金) (724), 整形 (722), sheets (681), 2020 (681), 目1 (674), 行目 (671), 明示 (619), 最終 (612), はc (522), クテ (513), （?? (486), 因は (474), ィブ (471), 変数 (470), 取得 (459), range (449), 適切 (449), 終行 (429)
- 『【最終列の取得】実行結果が違うのですがコードのどこに原因があるのか分かりません』（尚）
いつもお世話になっております。 F2から→↓方向に数式入れたいのです。 （F2から→は1行目の最終列がある列まで）、↓はC列の最終行まで） Dim r As Range Set r = Sheets(1).Range("A1").End(xlToRight).Columns. Sheets(1).Range("F2:r" & Range("C" & Rows.Count).End(xlUp).Row).FormulaR1C1 = "数式" End Sub 現在、1行目はS列（19列）目までタイトルが入っており、C列は370行目まで値があります。 上記記述で数式が入りましたが、F2〜R370に入り、S列はなにも入力されません。 原因と対策を教えていただけますでしょうか。 ＜ 使用 Excel:Excel2016、使用 OS:Windows10 ＞ ---- Sheets(1).Rangeを明示していないRange指定があるので、先頭シート以外がアクティブなときに誤動作しているのでは? （???） 2020/07/17(金) 13:13 ---- それとも、ご提示のコードだとR列までしかセットしていないからS列が変化しないのは当たり前なので、S列を対象とした別のコードがあるのかと思いましたが、他にはコード書いていないとか? （???） 2020/07/17(金) 13:15 ---- あ、判りました。 "F2:r" って書くと、rはR列の事ですが、変数rを使いたかったのですね。 だったら、"F2:" & r.Address とかにしないとですよ。 （???） 2020/07/17(金) 13:20 ---- 原因は大きく分けて2つあります。 1.1行目と2行目 1行目でRange型で宣言した変数にColumnで取得する値を代入しようとしている これはエラーになるはずです。 2.3行目 Range("C" & Rows.Count).End(xlUp).Row で（アクティブシート(※必ずしもSheets(1)とは同一ではない)の）C列最終行の値を取得し、 仮にそれが「370」だった場合 Sheets(1).Range("F2:r370") となり、Sheets(1)のF2:R370に"数式"を入力する式になっています。式は間違っていません。 （苫） 2020/07/17(金) 13:22 ---- 根本的原因は、無理に1行に収めようとして、コードの見通しが悪くなったせいでしょうね。 Range型の変数の使い方も適切ではないし。 整形してみた例なぞ。最大列をA列から調べているのに、行数はC列で調べている事に違和感がありますが…。 Sub test() Dim iC As Long Dim iR As Long With Sheets(1) iC = .Range("A1").End(xlToRight).Column iR = .Range("C" & .Rows.Count).End(xlUp).Row .Range("F2", .Cells(iR, iC)).FormulaR1C1 = "数式" End With End Sub （???） 2020/07/17(金) 13:31 ---- みなさま ご教示ありがとうございます! おかげ様で解決できました! 基礎的なところの勉強をしたいと思います・・ （尚） 2020/07/17(金) 13:44... - http://www.excel.studio-kazu.jp/wiki/kazuwiki/202007/20200717120548.txt - [detail] - similar
PREV
NEXT
Powered by Hyper Estraier 1.4.13, with 96999 documents and 607826 words.
訪問者：