[[20220118003428]] 『B列のデータが入っている行までH2に入っている数氏x(もっち) >>BOT

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『B列のデータが入っている行までH2に入っている数式の値を複写する。』(もっち)

Sub 値複写()
'
' 値複写 Macro
'

'

    Sheets("出金・入金票データ").Select
    n = Cells(Rows.Count, "b").End(xlUp).Row + 1
    Range("H2").Select
    Selection.Copy
    Range(H11.[" h"& n]).Select
    ActiveSheet.Paste
    Range(H11.[" h"& n]).Select
  Application.CutCopyMode = False
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("B17").Select
    Application.CutCopyMode = False

nでB列のデータが入っている行を出して

セルH2に入っている数式の値をセルH11からHnまで値複写をしたいのですが
うまく動きません。

例えばB列がB17までデータが入っているならH11からH17までH2に入っている数式を値複写したいのです。

< 使用 Excel:Excel2007、使用 OS:Windows7 >


 Sub macro()
    Dim n As Long
    With Worksheets("出金・入金票データ")
        n = .Cells(Rows.Count, "B").End(xlUp).Row
        .Range("H11:H" & n).Value = .Range("H2").Value
    End With
 End Sub
(qwerty) 2022/01/18(火) 06:34

ありがとうございました。できました。
(もっち) 2022/01/18(火) 21:53

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.