[[20190305220559]]　『少し判りにくいかもしれませんが・・・』（ブルー）　ページの最後に飛ぶ

『少し判りにくいかもしれませんが・・・』（ブルー）

いつもお世話になっております
マクロのことなのですが
少し判りにくいかもしれませんが
A B C
１みかん
２　　　りんご
・
・
５
売上
や
A B C
１みかん
２　　　りんご
・
・
７
売上
みたいに　A列の数字が変動する表の一番最後の数字を変数として取得するにはどうすればいいでしょうか
判りにくいかもしれませんがすいません

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

こういうことでしょうか

MsgBox WorksheetFunction.Lookup(10 ^ 15, Columns(1))

（マナ） 2019/03/05(火) 22:59

そうです　それを変数として使いたいです
（ブルー） 2019/03/05(火) 23:04

では、こうしてください。
最後の数字 = WorksheetFunction.Lookup(10 ^ 15, Columns(1))

（マナ） 2019/03/05(火) 23:12

では最後の数字の分だけ繰り返すにはどうすればいいでしょうか
（ブルー） 2019/03/05(火) 23:45

IFとDo～Loop文を使うのはわかりますが回数はどうすれば指定すればいいでしょうか
（ブルー） 2019/03/06(水) 19:36

ブルーさんにお願いがあります。

１）新しいスレを立ち上げる前に
コメントいただけますか。

[[20190302180916]]
[[20190227202725]]

２）このスレの中だけでも、そうです。
追加質問の前に、回答が、それでよかったのか、ちゃんと理解できたのか。
コメントするようにしていただけますか。

３）これまでの他の質問でも感じましたが
質問する際に提示される例が、あいまいです。
もう少しだけ具体的な例で説明お願いします。
でないと推測で回答することになります。

４）いつも「…するにはそうすればよいでしょうか」のパターンです。
そうではなく、エラーがでるものでも構いませんので
自分で考えてみたコードを提示できませんか。
「見よう見まねで、こうしてみたけどエラーがでます。」
といった質問のほうが、回答者としては楽です。

（マナ） 2019/03/06(水) 19:41

最後の数字の取得はできましたありがとうございます
やりたいこととしては
通し番号　商品　　ひにち
１　　　　みかん　３／１
２　　　　りんご　３／１
・
・
７　　　　いちご　３／１
を
別シートに
商品　　日にち／ナンバー
みかん　３／１　１
りんご　３／１　２
・
・
いちご　３／１　７
みたいにできたらとおもっています
判りにくいかもしれませんがよろしくおねがいします　　
（ブルー） 2019/03/06(水) 20:26

こんな手順でできますよね。
それをマクロにしてはどうですか。

１）A列をコピーして別シートのC1セルに貼り付け
２）B,C列をコピーして、別シートのA1セルに貼り付け

（マナ） 2019/03/06(水) 20:37

すいません書き忘れましたが日付と番号は同じセルに書きたいと考えています
つまりB列には日付　番号というふうにしたいです

（ブルー） 2019/03/06(水) 20:48

再度のお願いです。

具体例を挙げて説明お願いします。
文章だけでは、誤解が生じやすいです。

（マナ） 2019/03/06(水) 20:54

＞日付　番号というふうにしたいです

＞商品　　日にち／ナンバー
＞みかん　３／１　１
＞りんご　３／１　２
＞・
＞・
＞いちご　３／１　７

この意味は、１行目の見出しは、スラッシュで、
２行目以降は、スペースを間にいれて表示ということですか。

（マナ） 2019/03/06(水) 21:07

はいそのとおりです失礼しました
（ブルー） 2019/03/06(水) 21:11

このことと最初の質問との関係がわからないのですが？
説明お願いします。

（マナ） 2019/03/06(水) 21:25

うまく説明できないかもしれませんが
A列の通し番号は同じ日付に入荷したものを順番に番号を降っています
判りにくいかもしれませんがすいません
（ブルー） 2019/03/06(水) 21:58

＞A列の数字が変動する表の一番最後の数字を変数として取得するにはどうすればいいでしょうか

これとの関係が知りたいのです。
無関係ですか？

（マナ） 2019/03/06(水) 22:04

同じ日付の一番最後の番号を取得したいのです
（ブルー） 2019/03/06(水) 22:08

＞同じ日付の一番最後の番号を取得したいのです

↑これが、

なぜ、↓この質問になるのですか？

＞別シートに
＞商品　　日にち／ナンバー
＞みかん　３／１　１

（マナ） 2019/03/06(水) 22:13

質問を変えます。

手作業でこんな操作をしたら
期待通りの結果ですか？
問題点を教えてください。

１）D列に数式挿入：=TEXT(B1,"m/d ")&C1
２）B列をコピーして別シートのA1セルに貼り付け
３）D列をコピーして別シートのB1セルに値貼り付け
４）D列を削除
５）別シートのB1に、「日にち／ナンバー」と入力

（マナ） 2019/03/06(水) 22:21

間違えました。
１）D列に数式挿入：=TEXT(C1,"m/d ")&A1

でした。

（マナ） 2019/03/06(水) 22:23

期待通りの結果になりました
（ブルー） 2019/03/07(木) 19:44

１）の部分は難易度が高いので
こちらで書いてみました。

D列に、日にちとナンバーを数式を使って表示しています。
期待通り表示されたなら
手順の２）以降をブルーさんが考えてみてください。

わからなければ、「マクロの記録」を利用するとよいです。

 Sub 手順1()
    Dim ws1 As Worksheet
    Dim 最終行 As Long

    Set ws1 = Worksheets("sheet1")
    最終行 = ws1.Range("a1").End(xlDown).Row

    ws1.Range("D1:D" & 最終行).Formula = "=TEXT(C1,""m/d "")&A1"

 End Sub

（マナ） 2019/03/07(木) 20:05

ありがとうございます
（ブルー） 2019/03/07(木) 20:31

コメント返信：

[ 一覧(最新更新順) ]

[[20190305220559]] 『少し判りにくいかもしれませんが・・・』（ブルー） ページの最後に飛ぶ

[[20190305220559]]　『少し判りにくいかもしれませんが・・・』（ブルー）　ページの最後に飛ぶ