|
14466とSheetなど全く同じ条件で、
今回は値の違うものをいれたいのですが、記述の仕方がわかりません。
今回挿入したい値は、
./01/b1.cgi?cmd=s&sc=ball&S_1_Num_UserNum=87&UserNum=87 ←挿入したいデータ
↑ ↑ ↑
列番号 NO NO
<Sheet2>
A B C D E F G
PASS NO 項目1 項目2 項目3 項目4 項目5
abc 1 ./01/b1.cgi?cmd=s&sc=ball&S_1_Num_UserNum=1&UserNum=1
ded 5 ./02/b1.cgi?cmd=s&sc=ball&S_1_Num_UserNum=5&UserNum=5
下記は以前、教えて頂いたマクロの記述ですが、式の式の記述がわかりません。
お手宇卯ですがご教授お願いします
=================================================================
Sub test()
Dim rng As Range
With Worksheets("sheet1")
Set rng = .Range(.Cells(2, 1), .Cells(.Rows.Count, 1).End(xlUp))
End With
If rng.Row > 1 Then
With Worksheets("sheet2")
.Range(rng.Resize(, 2).Address).Value = _
rng.Resize(, 2).Value
With .Range(rng.Offset(0, 2).Resize(, 10).Address)
.Formula = _
"=if(sheet1!c2<>"""",""./id.cgi?cm?tx""&column()-2&""?num=""&$b2,"""")"
.Value = .Value
End With
End With
End If
End Sub
|
|