[[20130523185339]]　『hp』（VBA 挿入貼付？）　ページの最後に飛ぶ

『hp』（VBA 挿入貼付？）

 [Excel2007][Windows 7]

 Sheet1のA～K列にあるデータが入っており
 G列に品名K列に数量が記入されています
 それを　Sheet2に　FX と　Tから始まる品名の数量分下に
 挿入貼付する　VBA　を使用しているのですが
 その品名に　FH を　追加したいのですが
 いろいろ試してみましたが　できませんでした
 どうすればよいか　教えて下さい。

 Sub Macro1()

    Dim i&, j&, k&, m&, n&, v, w
       With Sheets("Sheet1")
          i = .Cells(.Rows.Count, "a").End(xlUp).Row
          v = .Range("a1:k" & i).Value
          m = Application.Sum(.Columns(11))
          ReDim w(1 To m, 1 To 11) '展開用配列準備
       End With
       '内部転記処理
       For i = 1 To UBound(v)
          n = n + 1
          If v(i, 7) = "FX" Or v(i, 7) Like "T*" Then
             m = v(i, 11)
             For k = 1 To m
                For j = 1 To 11
                   w(n, j) = v(i, j)
                Next
                If k < m Then n = n + 1
             Next
          Else
             For j = 1 To 11
                w(n, j) = v(i, j)
             Next
          End If
       Next
       '展開処理
       Sheets("Sheet2").Cells(1, 1).Resize(n, 11).Value = w

 End Sub

 いろいろ試したみた内容を記載されたほうがよいと思いますが、
　　 If v(i, 7) = "FX" Or v(i, 7) Like "T*" Then
 を
　　 If v(i, 7) = "FX" Or v(i, 7) = "FH" Or Left(v(i, 7),1) = "T" Then
 ということでしょうか？
 (Mook)

 Mookさん　できました　ありがとうございました
 (hp)

コメント返信：

[ 一覧(最新更新順) ]

[[20130523185339]] 『hp』（VBA 挿入貼付？） ページの最後に飛ぶ

[[20130523185339]]　『hp』（VBA 挿入貼付？）　ページの最後に飛ぶ