VBscript help needed for Excel 2007

[imported_chrisbtx]

It's been quite awhile since I used VBscript and I can't remember how to write the code to do something. I'm sure it's fairly simple, but I'm completely blank... can anyone help me figure out what I need to have in order to do the following?

I have a list about in columns A and B with 152 entries. Column A reads a number and Column B has a name. What I need to have done is have a string output into Column C where the entries in A1 and B1 are combined into a statement like this:

"add xxx_xxx (A1) (B1) (A2) (B2) all"
then...
"add xxx_xxx (A1) (B1) (A3) (B3) all"
and have this repeat all the way to...
"add xxx_xxx (A1) (B1) (A152) (B152) all"

Then I need to have it repeat for the entries in A2 and B2 like:

"add xxx_xxx (A2) (B2) (A1) (B1) all"
"add xxx_xxx (A2) (B2) (A3) (B3) all"
.
.
.
"add xxx_xxx (A2) (B2) (A 152) (B152) all"

I need this to be done for each of the rows with the entries in columns A and B... the total number of entries that should end up in column C is 22,952.

Can anyone help me out with this? I GREATLY appreciate any help that can be provided.

Thanks!

--Ben

 

[KLin]

Dim i, i2, i3
i3 = 1
For i = 1 To 152
For i2 = 1 To 152
If i <> i2 Then
ActiveSheet.Cells(i3, "C") = "add xxx_xxx (" & ActiveSheet.Cells(i, "A") & ") (" & ActiveSheet.Cells(i, "B") & ") (" & ActiveSheet.Cells(i2, "A") & ") (" & ActiveSheet.Cells(i2, "B") & ") all"
i3 = i3 + 1
End If
Next i2
Next i

Is that what you're looking for?

 

[imported_chrisbtx]

PERFECT. Thank you so much for your help!

I obviously need to brush up on my coding skills...