StackOverflow2013

Note that there are some explanatory texts on larger screens.

plurals

PO
primarykey
Id
17684166
data
AcceptedAnswerId
0
AnswerCount
0
ClosedDate
CommentCount
0
CommunityOwnedDate
CreationDate
2013-07-16T18:20:57.117
FavoriteCount
0
LastActivityDate
2013-07-16T18:38:47.773
LastEditDate
2017-05-23T12:09:57.707
LastEditorUserId
-1
OwnerUserId
138938
ParentId
17681098
PostTypeId
2
Score
1
ViewCount
0
LastEditorDisplayName
text
Body
You can use the following to cross join two different ranges. It will handle ranges of any size and write the crossjoined combinations to a target sheet that you specify. In the example below, I have defined two named ranges: <code>newValues</code> and <code>fixedValues</code>. Both of these ranges are on <code>Sheet1</code>. I then loop through the ranges and write all combinations to <code>Sheet2</code>. <pre><code>Sub CrossJoinMyRanges() Dim ws As Worksheet Dim newValues As Range Dim cell As Range Set ws = ThisWorkbook.Sheets("Sheet1") Set newValues = ws.Range("newValues") ' loop through the new values For Each cell In newValues Call ReplaceMe(cell.Value, ws) Next cell End Sub Sub ReplaceMe(replacement As String, ws As Worksheet) Dim fixedValues As Range Dim cell As Range Set fixedValues = ws.Range("fixedValues") ' outer loop through fixedValues For Each cell In fixedValues Call PrintReplacedValues(cell.Row, replacement) Next cell End Sub Sub PrintReplacedValues(rowNumber As Long, replacement As String) Dim wb As Workbook Dim src As Worksheet Dim tgt As Worksheet Dim fixedValues As Range Dim cell As Range Dim printMe As String Dim x As Long, y As Long Set wb = ThisWorkbook Set src = wb.Sheets("Sheet1") Set tgt = wb.Sheets("Sheet2") Set fixedValues = src.Range("fixedValues") y = 1 x = tgt.Range("A" & tgt.Rows.Count).End(xlUp).Row + 1 ' inner loop through fixed values For Each cell In fixedValues ' replace the fixed value with the replacement ' if the loops intersect If cell.Row = rowNumber Then printMe = replacement Else ' otherwise keep the fixed value printMe = cell End If ' write to the target sheet tgt.Cells(x, y).Value = printMe y = y + 1 Next cell End Sub </code></pre> There are a few similar questions with alternative solutions that you can also look into if my approach isn't what you were after: <a href="https://stackoverflow.com/q/10692653/138938">Excel vba to create every possible combination of a Range</a> <a href="https://stackoverflow.com/q/5018793/138938">How can i obtain cartesian product like columns in excel?</a>
Tags
Title
singulars
PostAcceptedAnswerId
1. This table or related slice is empty.
PostParentId
1. POExcel VBA macro to generate a list of possible combinations
 singulars
 PostTypePostTypeId
 PTQuestion
PostTypePostTypeId
1. PTAnswer
UserLastEditorUserId
1. USCommunity
UserOwnerUserId
1. USJon Crowell
plurals
PostLinksPostIdRelatedPostId
1. This table or related slice is empty.
PostLinksRelatedPostIdPostId
1. This table or related slice is empty.
PostsAcceptedAnswerId
1. This table or related slice is empty.
PostsParentIdCreationDate
1. This table or related slice is empty.
VotesPostIdCreationDate
1. This table or related slice is empty.
CommentsPostId
1. This table or related slice is empty.

Querying!

Guidance

A row detail

Detail views are divided into sections. All the information in the data section comes from columns in the selected row. The other sections display data from other, related rows.

Related data can be related in a to-one or a to-many fashion. Captions of data related in a to-many fashion link to a list view showing a filtered view of the table.

Try moving around until you find a non-empty to-many entry and click on the label to get to one. You can move back to the root by clicking on the database name in the header.