![]() WorkRng.Range("A1").Resize(Dic.Count, 1) = (Dic.keys) Set Dic = CreateObject("Scripting.Dictionary")ĭic(arr(i, 1)) = Dic(arr(i, 1)) & " " & arr(i, 2) Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8) ![]() VBA code: combine multiple rows into one Sub CombineRows() Click Insert > Module, and paste the following code in the Module Window. Hold down the ALT + F11 keys, and it opens the Microsoft Visual Basic for Applications window.Ģ. So, if you have two columns data, this code will do a favor for you.ġ. ![]() The following VBA code can help you combine duplicate rows based on the value of column A, and the following code is only applied for two columns. ![]() Amazing! Using Efficient Tabs in Excel Like Chrome, Firefox and Safari! Save 50% of your time, and reduce thousands of mouse clicks for you every day! ![]()
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |