ベストアンサー エクセルの関数で最終行の文字を取得したい 2023/04/01 04:39 エクセルの関数で、シート2のA1に、シート1のA列の最終行に入力されてる文字を取得したいのですが、どのような関数になるでしょうか？ みんなの回答 （2） 専門家の回答 質問者が選んだベストアンサー ベストアンサー aokii ベストアンサー率23% (5210/22063) 2023/04/01 05:28 回答No.1 =INDEX(A:A,COUNTA(A:A)) 通報する ありがとう 1 広告を見て他の回答を表示する（1） その他の回答 (1) msMike ベストアンサー率20% (368/1813) 2023/04/01 06:43 回答No.2 「シート1のA列の最終行に入力されてる」のが“文字通り”文字列ならば、 Sheet2!A1: =LOOKUP("黑",Sheet1!A:A) 「シート1のA列の最終行に入力されてる」のが数値ならば、 Sheet2!A1: =LOOKUP(10^308,Sheet1!A:A) 試した結果を教えてください。 通報する ありがとう 0 カテゴリ パソコン・スマートフォンソフトウェアExcel（エクセル） 関連するQ&A 文字の場合でもＡ列の最終行の行番号を取得するには Ａ列の最終行の行番号を、 =MATCH(10^10,A:A) を使えば取得できますが、 これはA列にの最終行が数値の時だけで、文字列が最終行の場合は無視されるようです。 文字列でも取得する方法はありますか？ 10^10の部分を変更すればいいと思いますが、どうすればいいですか？ マクロを使って最終行を取得して、範囲内の空白セルに マクロを使って最終行を取得して、範囲内の空白セルに指定の文字列を表示させたいです。 お世話になります。 要件としてはタイトルの通りです。 Excel2013を利用しています。 A列を参照して最終行を取得し、 B列の1～最終行までの空白セルに対して「未入力」という文字列を入力したいです。 この場合、考え方はいろいろあるのでしょうが どのようにコードを組めば良いでしょうか？ 自分では、まったく書けていないというのが正直なところです。 そこで御手数ですが、ご協力をお願いいたします。 エクセルVBAで最終行取得ができない エクセルVBAでたとえばC列にどこまでデータが入力されているかを調べるとき、通常は r = Cells(Rows.Count, "C").End(xlUp).Row などでできます。 しかし添付画像のような入力フォームが出来上がっており、かつC列に最初から何らか（画像では〒マーク）の入力がされているので、そこに回答者が途中まで入力された場合、これでは最終行は取得できません。 逆に上からEnd(xlDown)でやろうとしても、途中に空白セルがあってお手上げです。 余分な〒マークを元データから削除してしまいたいのですがそれでは入力されているところのマークまで消えてしまいます。 このようなファイルが何百もあり、それを1枚のシートにまとめようとしているのですが、この最終行取得でつまずいてしまいました。 どのような方法があるでしょうか？ 画像はエクセル2013ですが、実際にマクロを動かすのは2010です。 ヤバいパソコンが壊れたかも！？事前に知っておきたい3つの兆候と対策 OKWAVE コラム ＶＢＡ最終行取得 Sub 最終セル取得() Dim gyou As Integer gyou = 1 Do Until Cells(gyou, 1).Value = "" gyou = gyou + 1 Loop Range("C1").Value = gyou End Sub 上記のプログラムのどこを変えれば 文字が入力されている最終行の取得ができますでしょうか。 Ａ列に入っている文字の最終行(セル)がＣ１に表示される というようにしたいのですが…; このまま実行すると１つ多いセル行が表示されてしまいます 同じような質問をしてしまって申し訳ありません; どなたかわかる方回答お願い致します Excelは2000です； Excelの最終行を取得 ワークブックモジュールにこんなVBAを追加しました。 '入力行のセルをアクティブにする Private Sub Workbook_Open() Dim 入力行 As Long 入力行 = Worksheets(1).Range("A3"). _ CurrentRegion.Rows.Count + 1 Worksheets(1).Cells(入力行, 2).Select End Sub これは問題なく実行されました。 しかし、以前にこのような関数をA500まで設定していたので空白の行をアクティブにしてしまいました。 =IF(OR($B487<>"",$C487<>"",$D487<>"",$E487<>"",$F487<>""),ROW()-2,"") 関数を消すと実際の最終行を取得することはできたのですが、行番号の関数は追加されませんでした。 テーブルの大きさに合わせて自動で関数を追加するというようなことはできるのでしょうか？また更にいい方法があれば教えてください。 vbaで最終行に張り付け Excelマクロについて教えてください。 sheet2にsheet1から選択した範囲を貼り付けております sheet2のC列が連続した値になっておりそれを軸に貼り付けをしたいのです。 sheet1のA1:g40の範囲をcutしたものを sheet2のC列の最終入力行の一段下の行に A列から貼り付けしたいのです。 よろしくお願いします 何列の何行目が最終行なのか取得するコードはありますでしょうか？ Ａ列 Ｂ列 Ｃ列 １ ○ ○ 2 ○ 3 ○ これは最終行が3行目と言うのがぱっと見でわかりますが もっと列も行も多い場合、 シート内の何列の何行目が最終行なのか取得するコードはありますでしょうか？ Cells(65536, ？).End(xlUp).Row を行ないたいのですが 毎回何列の行が一番下かを取得する方法があれば教えてください。 よろしくお願い致します。 エクセルで文字最終行の空白セルへ移動 エクセル２０００です。 １０００行内で間にとびとび（順不同）に空白セル、他は文字有りです。 （１０００行目は文字あり） シートが１０個あり、各シートともばらばら（ウィンドー枠固定位置）ですが、ウィンドー枠固定内の行に「最終行へ移動」のボタンを設け、いずれの行からも、最終文字入力の次の行空白セル（ＡからＺ列のいずれか）へ移動したいです。 方法がありますでしょうか？ ＶＢＡの場合、素人につきＶＢＡへの入力方法等も一緒にお願いします。またＶＢＡの場合、ソフトを立ち上げたら直ぐに実行できるようにしたいです。（立ち上がり時のマクロ警告はあり） よろしくお願いいたします。 Excelでフィルターのかかっているときの最終行の取り方。 Dim mySh As Worksheet Set mySh = Sheet("Sheet1") Debug.Print mySh.Cells(mySh.Rows.Count,1).End(xlup).Row でデータのあるA列の最終行を取得していますが、この場合、フィルターがかかっていると実際のデータのある最終行でなくて見えている部分の最終行が返ってきます。 Excel2003 SP3 WindowsXP SP3 フィルターがかかっていても実際のデータのある最終行を取得する方法あるのでしょうか？ エクセルで別シートの値を取得したいです。 エクセルで質問があります。 別シートからセル値を取得したいです。 ただ、セル番地は行番号、列番号で指定し、 行、列番号はセルに入力してある値を使いたいです。 例 Aシート(値格納シート) B1セル値=1000 -------------- Bシート(値取得シート) A列=行番号入力 B列=列番号入力 C列=Aシートの取得関数 A2セル値=1 B2セル値=2 C2セル=1000(取得値) C2セルの関数に、A2とB2の値を使って Aシートのセル値を取得したいです。 よろしくお願いします。 VBAで最終行の取得について UserFormのConboBoxで「○○」を選んで、 UserFormのTextBoxで『あいう』と入力すると、ワークシートに A B 1 ○○ ×× 2 あいう と表示され、 UserFormのConboBoxで「××」を選んで、 UserFormのTextBoxで『アイウ』と入力すると A B 1 ○○ ×× 2 あいう アイウ 3 : : と表示されるようにしたいと思います。 以下のプログラムまではできています。 ********************************************* Private Sub UserForm_Initialize() Dim lasClm As Integer, i As Integer lasClm = Sheet1.Range("A1").End(xlToRight).Column For i = 1 To lasClm ComboBox1.AddItem Sheet1.Cells(1, i).Value Next i End Sub ********************************************* Private Sub CommandButton1_Click() Select Case ComboBox1.Text Case Sheet1.Cells(1, 1).Value '「○○」が選択 Sheet1.Cells(2, 1).Value = TextBox1.Text ・・・(1) Case Sheet1.Cells(1, 2).Value '「××」が選択 Sheet1.Cells(2, 2).Value = TextBox1.Text ・・・(2) End Select UserForm1.Hide End Sub ********************************************** 今は(1)、(2)のように直接セルを指定しているのですが、 この部分を各列（A列、B列）の最終行の値を取得して、 最終行＋１のセルに順次TextBoxに入力された値を代入していきたいのですが、 どのようにしたらよいのでしょうか。 しかし、A列とB列は同じように値が増えていくとは限りません。 例） A B 1 ○○ ×× 2 あいう アイウ 3 かきく 4 さしす となる場合もあるので、A列とB列それぞれの最終行の値を取得したいと思っています。 エクセル最終行の下に貼り付け VBAで以下の作業を教えて下さい。 Sheet1のB列に入力済みのセルが何行かあります。 その入力済みのセルの値をコピーして、Sheet2のA列の入力済みの最終行のすぐ下の行に貼り付ける。 ＊Sheet1のB列の入力済みのセルの行数は毎回変わります。 ＊Sheet２のA列には一番最初は何も入力されていない状態です。 宜しくお願い致します。 家のネットワークを最適にできますか？：知っておくべきポイント OKWAVE コラム EXCELの最終列の数値の取得 お世話になります。 EXCELにて画像のようなデータがあった場合についてです。 例えばA列には受注目安の1回目を入力する欄が設けられており、それぞれの状態を入力します。 OKの場合はそれ以降入力する必要がないのでA列が最終列となりますが、未定の場合はC列の 受注目安2に再度入力しており、それが最終列扱いとなります。 売上も同じような方法で入力していくのですが、その右側にそれぞれの行の一番最後の値が 最終売上、最終目安に反映されるようにしたいです。 ネットで調べてみて最終行の取得などはあったのですが、入力された最終行の取得について 分かりやすい解説が見つかりませんので質問いたしました。 お手数ですが、解決方法をご教授下さい。 よろしくお願いします。 エクセルの関数について教えてください。 エクセルの関数について教えて下さい。 ”シート1”に、”シート2””シート3””シート4”から、ある文字列”あああ”が同じものをその行をまるまるシート1に表示したいのですが。。。 そのような方法はありますか？一列一列SUMIFで関数を入力しなければいけませんか？ 説明がわかりにくくて申し訳ありません。 宜しくお願い致します。 VBScript エクセル 最終行と最終列取得 今、たくさんのシートがある、エクセルのファイルがあり、「Ｃ６」以降が縦の項目行、「Ｄ５」以降が横の項目列です。 項目行と項目列には、間に空白のセルは存在しません。 この状態で、項目行、項目列の最終の場所を取得しなければなりません。 そこで、「r = Range("C6").End(-4121).Row」（「-4121」は「xlDown」）、「c = Range("D5").End(-4161).Column」（「-4161」は「xlToRight」）で次々に求めていったのですが、「C6」に縦の項目が１つだけ、「D5」に横の項目が１つだけ、というシートがありました。 すると、そのシートでは、「r」と「c」の値は、エクセルそのものの最大の行数と最大の列数が返ってきてしまいました。 そこで、「D6」にのみ、文字があるサンプルファイルを作り、そのサンプルファイルに対して、「r = Range("D5").End(-4121).Row」と「c = Range("C6").End(-4161).Column)」で求めると、ちゃんと、「r = 6」、「c = 4」という値が返ってきたので、「r」の場合は、１つ上から、「c」については、１つ左から「Range」を設定すればいい、と思って、実際のデータで試すと、他のシートでは、全然うまくゆきません。 結果的に、問題は、「If」文で、ムリヤリ解決させたのですが、「If」文の場合ですと、前もって全シートを確認して、調べておかなければなりません。 何とか、汎用的に項目が１つしかない場合も、その項目のある「行」と「列」が最終行、最終列として取得できる方法はないでしょうか？ ただし、項目が「０個」ということはありませんので、そこまで考えて頂く必要はありません。 「VBA」でも結構ですので、よろしくお願いいたします。 エクセルVBAでデータ最終行取得方法 エクセルVBAでデータ最終行取得方法で良い方法を教えてください。 データの行数、列数は不定。 最多のデータ行の列も不定。 この条件で、データ最終行を取得するにはどうすればよいでしょうか？ lastrow = ActiveSheet.Cells(ActiveSheet.Rows.Count, "A").End(xlUp).Row では、A列の最終行に限定されます。 lastrow = ActiveSheet.Cells(1, "A").SpecialCells(xlLastCell).Row では、列の限定はありませんが、一旦データ入力後、削除した部分まで入ってしまいます。 lastrow = ActiveSheet.UsedRange.Rows.Count では、データ入力後、削除した部分まで入ってしまい、かつ、１行目など上部が空白の場合、不正確になります。 エクセル SUM関数 自動的に最終行を取得したい A1→1 A2→2 B1→=SUM(A1:A2) と入力しています。 この状態で A3→3 と入力した場合 自動的に B1→=SUM(A1:A3) にすることは不可能ですか？ 「=SUM(A1:A3)」のA3の部分をA列の最終行を取得したいです。 VBAなら可能でしょうか？ ご教授よろしくお願い致します。 マクロ CSVファイル取込 最終行、最終列の取得 マクロでCSVファイルを取込むプログラムを作成しております。 最終行を取得するソースまではできたのですが、最終列を取得する処理ができておりません。 教えて頂けないでしょうか。 処理概要 (1)ボタンを押したら、Sheet2にCSVファイルがインポートされる (2)Sheet2に出力されたA2行～A8行とA2行～A8行の最終列までをSheet1のD4行～D10行、D4行～D10行の列にコピー (3)Sheet2に出力されたA9行目はコピーしない (4)Sheet2に出力されたA10行以降とA10行以降の最終列までをSheet1のA13行以降の最終列までにコピー 現在のソースは(2)、(4)の最終列を取得するソース以外はできています。 (2)、(4)の最終列を取得し、コピーする方法を教えて下さい。 現在のソースです。 Sub READ_TextFile() Dim LoadFileName As String Dim LR As Long '選んだcsvファイルをSheet1に読み込む LoadFileName = Application.GetOpenFilename("CSVファイル(*.csv),*.csv", 1, "読み込むcsvファイルを選んで下さい", False) If LoadFileName = "False" Then Exit Sub Workbooks.Open LoadFileName Cells.Copy ThisWorkbook.Sheets("Sheet2").Range("A1") ActiveWorkbook.Close False 'Sheet2のA2:A8をSheet1のD4を先頭セルとする範囲にCopy Worksheets("Sheet2").Range("A2:A8").Copy Worksheets("Sheet1").Range("D4") 'Sheet2のA列のデータのある最終行を取得しLRという変数に入れる LR = Worksheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Row 'Sheet2のA10からA列の最終行までをSheet1のA13を先頭セルとする範囲にCopy Worksheets("Sheet2").Range("A10:A" & LR).Copy Worksheets("Sheet1").Range("A13") End Sub Excelの関数で複数の行・列範囲を検索する方法 Excelの関数について質問です。ある値が何行目の何列目にあるかはCtrl+Fを使えばすぐに解りますが、このようなことを関数で実行することはできますか？ 例えば、Sheet1のA1からZ40まで重複のない値が入っていたとして、別のシートでA1～A10に探したい10種類の値を入力すれば、その10個の値がSheet1の何行目の何列目にあるかをB列で表示できるといった、そういうことができる関数はありますでしょうか？ MATCHでは一度に複数の行や列を検索できないようなので困っています。 よろしくお願いします。 関数について教えて下さい。Ａ列の1行目に１、3行目に５、6行目に８、1 関数について教えて下さい。Ａ列の1行目に１、3行目に５、6行目に８、10行目に１１と規則的でない行に規則的でない番号が入力されているデータがあり、このＡ列の番号を、シート２のＡ列の２行目から下に順番に表示したいのですが、そのような関数などあるでしょうか？。どなたかよろしくお願いします。 Ａ列1行目 １ 2行目 3行目 ５ 4行目 6行目 ８ ・ ・ ・ 別シートＡ列 2行目 １ 3行目 ５ 4行目 ８ ・ ・ ・ 注目のQ&A 「You」や「I」が入った曲といえば？ Part2 今も頑なにEメールだけを使ってる人の理由 日本が世界に誇れるものは富士山だけ？ 自分がゴミすぎる時の対処法 妻の浮気に対して アプローチしすぎ？ 大事な物を忘れてしまう 円満に退職したい。強行突破しかないでしょうか？ タイヤ交換 猛威を振るうインフルエンザ カテゴリ パソコン・スマートフォン ソフトウェア Excel（エクセル）Word（ワード）PowerPoint（パワーポイント）Access（アクセス）その他MS Office製品オフィス系ソフトPhotoshop（フォトショップ）Illustrator（イラストレーター）その他Adobe製品画像・動画・音楽編集ホームページ作成ソフト筆まめ・はがき作成フリーウェア・フリーソフトその他(ソフトウェア) カテゴリ一覧を見る あなたにピッタリな商品が見つかる！ OKWAVE セレクト コスメ化粧品 化粧水・クレンジングなど 健康食品・サプリ コンブチャなど バス用品 入浴剤・アミノ酸シャンプーなど スマホアプリ マッチングアプリなど ヘアケア 白髪染めヘアカラーなど インターネット回線 プロバイダ、光回線など
