|
こんにちは
>インポート元の、A2:J2、B3,E3,G3、B5,H5、B6,H6、B7,E7,G7、B8,H8、B9,H9
を
>インポート先に、1行の各セルに、上の順番で並べたいのです。
「,」「、」の違いが気になるのですが、こんな感じでしょうか?
Sub test1()
Dim strDBPath As String
Dim v As Variant
Dim m As Variant
Dim mArray As Variant
Dim i As Long
Dim j As Long
Dim r As Range
v = Application.GetOpenFilename("エクセルブック(*.xls),*.xls", , , , False)
If VarType(v) = vbBoolean Then Exit Sub
strDBPath = "='" & Replace(v, Dir(v), "[" & Dir(v) & "]") & "Sheet1'!"
mArray = Array("A2:J2", "B3", "E3", "G3", "B5", _
"H5", "B6", "H6", "B7", "E7", "G7", "B8", "H8", "B9", "H9")
i = Cells(Rows.Count, 1).End(xlUp).Row + 1
Rows(i).ClearContents
j = 1
For Each m In mArray
For Each r In Range(CStr(m))
With Cells(i, j)
.Formula = strDBPath & r.Address
.Value = .Value
End With
j = j + 1
Next
Next
End Sub
インポートデータを1セルずつ処理してますので、その値で必要なデータかどうかの
判定処理も入れられますけど、どのセルで判定するのか分かりませんので何もして
ません。
|
|