[[20220118003428]]　『B列のデータが入っている行までH2に入っている数氏x（もっち）　ページの最後に飛ぶ

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

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

    Sheets("出金・入金票データ").Select
    n = Cells(Rows.Count, "ｂ").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に入っている数式の値をセルH１１からHｎまで値複写をしたいのですが
うまく動きません。

例えば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

コメント返信：

[ 一覧(最新更新順) ]

[[20220118003428]] 『B列のデータが入っている行までH2に入っている数氏x（もっち） ページの最後に飛ぶ

[[20220118003428]]　『B列のデータが入っている行までH2に入っている数氏x（もっち）　ページの最後に飛ぶ