I need your help, I do not want to add empty cells in each format of the column header.
For example:
| 111 | 222 | 333 | 111 | 444 | 222 | 555
AAA | 2 | 2 | 2 | 2 | 2 | 2 | 2 BBB. | 2 | 2 | 2 | 2 | 2 | 2 ccc | | | 2 | | 2 | 2 | DD | 2 | | | 2 | | 2 | EE | 2 | | 2 | | | | 2 I have to look like this:
| 111 | 222 | 333 | 444 | 555 --------- "post-text" itemprop = "text"> This works you may have to update border reference It outputs the summary to a different worksheet. UserCount () Dim Headers Range, Header as Range, CountRng as Range, Colonel = CreateObject ("Scripting.Dictionary") set as Long Set Header = Category ("A1: G1") col = 1 Set the countRng = range in the header in each header (Header. Offset (1, 0), Header. Offset (5, 0)) // '5' Update your If no dict.Exists (header.Value) on the number of pass rows then dict.Hal. Add, worksheet function. CountA (countRng) otherwise dict.Item (header.Value) = dict.Item (header.Value) + worksheet function. Dictator with countRng and wordsheets ("Sheet 2") Next header for every V with. (1, call) = V. Seals (2, call) = dict.Item (v) col = col next set with + 1 end dict = none end sub
No comments:
Post a Comment