エクセルの学校：全文検索：Hyper Estraier： 20��...

Results of 1 - 1 of about 19659 for 20��... (0.004 sec.)

[[20200430221919]]: #score: 2681; @digest: 0f0f9594efd0b42a2f0db77c045deb55; @id: 83345; @mdate: 2020-05-12T11:04:51Z; @size: 4801; @type: text/plain; #keywords: 個4 (15957), 個"" (12695), faddress (11957), 個5 (11663), frng (11068), 個・ (8226), 個", (7862), 目as (7675), 個2 (6935), 個" (6599), ・20 (5853), 付以 (4215), 目= (3126), 行開 (2911), ピン (2502), 合if (2430), 2020 (2043), （ピ (1923), 個と (1834), vbexclamation (1805), mydate (1782), ル1 (1468), 水) (1450), うセ (1433), 合1 (1182), ク） (1163), 個の (871), offset (821), elseif (811), xlbyrows (810), ンク (742), 項目 (731); 『ひとつ上のセルをコピーして違うところのセルに貼り付けるマクロ』（こまった）
いつもお世話になってます少しわかりにくいのですが例 A B 4/30 ← コピーしたいセル 1個 2個・・・・ 20個とあって個数の横に日付を貼り付けて完成例 A B 4/30 1個 4/30 2個 4/30 ・・・・ 20個 4/30 みたいにしたいのですがどうすれば良いですかわかりにくいのですがよろしくお願いします＜使用 Excel:Excel2010、使用 OS:Windows7 ＞ ---- ・1個というセルが選択されていて、・20個というセルが最終行で、その下のセルは空白行であるとして、こんなコードはどうですか? Sub test() Dim rng As Range Set rng = Range(Selection, Selection.End(xlDown)) rng.Offset(0, 1).Value = Selection.Offset(-1).Value End Sub 前提が異なることに伴う微修正は、そちらでどうぞ。（γ） 2020/04/30(木) 23:03 ---- 遅れましたがありがとうございます（こまった） 2020/05/05(火) 11:20 ---- ではなくて 1個というセルの上のセルをコピーして 1個の右のせるに貼り付けたいのですわかりにくいのですがすいません（こまった） 2020/05/05(火) 21:45 ---- >1個というセルの上のセルをコピーして Sub Test() Dim myR As Variant myR = Application.Match("1個", Columns(1), 0) If IsError(myR) Then MsgBox """1個"" が見つかりません!", vbExclamation Else Range("A" & myR, Cells(Rows.Count, "A").End(xlUp)).Offset(, 1).Value = _ Range("A" & myR - 1).Value End If End Sub （ピンク） 2020/05/06(水) 09:11 ---- ありがとうございます誠に申し訳ないのですが A B 4/30 ← コピーしたいセル 1個 2個・・・・ 20個 5/1 1個 2個・・・・ 20個みたいな場合 4/30 ← コピーしたいセル 1個 4/30 2個 4/30 ・・・・ 20個 4/30 5/1 1個 5/1 2個 5/1 ・・・・ 20個 5/1 みたいにしたいのですがどうしたらいいでしょうか色々すいません（こまった） 2020/05/06(水) 16:25 ---- >みたいにしたいのですがどうしたらいいでしょうか Sub Test() Dim fRng As Range, fAddress As String Set fRng = ActiveSheet.Columns(1).Find("1個", LookIn:=xlValues, LookAt:=xlWhole, _ SearchOrder:=xlByRows, MatchByte:=True) If fRng Is Nothing Then MsgBox """1個"" が見つかりません!", vbExclamation Exit Sub End If fAddress = fRng.Address Do fRng.Offset(, 1).Resize(20).Value = fRng.Offset(-1).Value Set fRng = ActiveSheet.Columns(1).FindNext(fRng) Loop While fAddress <> fRng.Address End Sub （ピンク） 2020/05/06(水) 17:03 ---- ありがとうございますでも必ずある状態で実行する場合ifはいりませんよね? （こまった） 2020/05/06(水) 17:12 ---- >でも必ずある状態で実行する場合ifはいりませんよね? はい!!、要りません!! （ピンク） 2020/05/06(水) 18:36 ---- わかりましたやってみてわからなかったらまた連絡します（こまった） 2020/05/06(水) 18:54 ---- やってみました基本的にできました追加で質問しますがもし 1個 2個みたいに間に数行開いてる場合 1個 2個の個の行にだけ日付を貼り付けるようなことはできますか（こまった） 2020/05/06(水) 19:49 ---- >個の行にだけ日付を貼り付けるようなことはできますか Sub Test2() Dim c As Range, myDate As Date For Each c In Range("A1", Cells(Rows.Count, "A").End(xlUp)) If IsDate(c.Value) Then myDate = c.Value ElseIf c.Value Like "*個" Then c.Offset(, 1).Value = myDate End If Next c End Sub （ピンク） 2020/05/06(水) 20:23 ---- ありがとうございます質問だらけですいません仮に日付以外の値でも可能でしょうか（こまった） 2020/05/06(水) 20:27 ---- >仮に日付以外の値でも可能でしょうか Sub Test3() Dim c As Range, 項目 As String For Each c In Range("A1", Cells(Rows.Count, "A").End(xlUp)) If c.Value Like "*個" Then c.Offset(, 1).Value = 項目 ElseIf c.Value <> "" Then 項目 = c.Value End If Next c End Sub （ピンク） 2020/05/06(水) 20:46 ---- ありがとうございます（こまった） 2020/05/06(水) 20:51 ---- 日付、日付以外の混合の場合 Sub Test4() Dim c As Range, 項目 As Range For Each c In Range("A1", Cells(Rows.Count, "A").End(xlUp)) If c.Value Like "*個" Then 項目.Copy c.Offset(, 1) ElseIf c.Value <> "" Then Set 項目 = c End If Next c End Sub キリがないから、これで終わり。ヾ(^_^) byebye!! （ピンク） 2020/05/06(水) 20:55 ---- ありがとうございます仮に2つ上の場合どの部分を改良すればいいでしょうか（こまった） 2020/05/11(月) 19:56 ---- そのままで動きますよ。コード内容をよく理解してください。（γ） 2020/05/12(火) 08:04 ---- よくわかりませんすいません教えて下さい（こまった） 2020/05/12(火) 20:04 ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/202004/20200430221919.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ