StackOverflow2013

Note that there are some explanatory texts on larger screens.

plurals

PO
primarykey
Id
16641496
data
AcceptedAnswerId
0
AnswerCount
0
ClosedDate
CommentCount
0
CommunityOwnedDate
CreationDate
2013-05-20T01:54:53.663
FavoriteCount
0
LastActivityDate
2013-05-20T01:54:53.663
LastEditDate
LastEditorUserId
0
OwnerUserId
212869
ParentId
16639610
PostTypeId
2
Score
0
ViewCount
0
LastEditorDisplayName
text
Body
<p>The following assumes that your data is all in one column (eg: <code>"315 1 344"</code> is one cell)</p> <p>It will look at sheet1 starting from A1, generate a list of unique cell values and count any duplicates. Once all the records have been checked, it outputs the results to sheet2.</p> <pre><code>Sub Main() ' this requires you to add a reference to "Microsoft Scripting Runtime" (usefull if you do not know the methods of scripting.dictionary) 'Dim Results As New Scripting.Dictionary ' the line does not require you to add any extra references (there is no code-completion, you must know the methods and their arguments) Dim Results As Object: Set Results = CreateObject("Scripting.Dictionary") Dim Data As Variant Dim Key As Variant Dim Source As Worksheet: Set Source = ThisWorkbook.Worksheets("Sheet1") ' the sheet where your data is Dim Destination As Worksheet: Set Destination = ThisWorkbook.Worksheets("Sheet2") ' where the results will be put Dim Row As Long: Row = 1 ' the row number to start from Dim Item As String Data = Source.UsedRange.Value2 ' iterate over the data Do Item = Data(Row, 1) If Results.Exists(Item) = True Then Results(Item) = Results(Item) + 1 Else Results(Item) = 1 End If Row = Row + 1 Loop While Not Data(Row, 1) = "" ' display the output Destination.Cells.Clear ' reset the worksheet For Each Key In Results.Keys ' loop through the results Destination.Range("A1:B1").Insert xlShiftDown ' move the previous results down Destination.Cells(1, 1) = Key Destination.Cells(1, 2) = Results(Key) Next Key End Sub </code></pre>
Tags
Title
singulars
PostAcceptedAnswerId
1. This table or related slice is empty.
PostParentId
1. POHow do I count occurrences of a pattern of data in Excel?
  singulars
  PostTypePostTypeId
  PTQuestion
PostTypePostTypeId
1. PTAnswer
UserLastEditorUserId
1. This table or related slice is empty.
UserOwnerUserId
1. USNickSlash
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.