If you read my latest update on how we can get position of last row containing data, then most probably you already have a glimpse on how we perform the same task with last column containing data in Excel. The VBA code is the exact replica of the code to get the last row, only [...]

UPDATE June 13, 2008: Another alternative way to find the last row with data : Function LastRow() As Long Dim ix As Long ix = ActiveSheet.UsedRange.Row – 1 + ActiveSheet.UsedRange.Rows.Count LastRow = ix End Function I did a simple test, and the function will return the correct last row position even when the data was [...]

Usually in the sequential database system, we can SUM only unique values in table column by adding all the values from SELECT DISTINCT query result only. Based on the same principle, we can also create a simple VBA function in Microsoft Excel by adding the values only available in a collection of unique values we [...]

Let say I have a bunch of formatted data in my Excel sheet, and in Column A I have a dates. Then I wanna filter all the data base on certain date, for example 1 Jan 2009, and delete all others data before that date. The algorithm is like this: I’ll create a loop from [...]

Update: Sorter version of the VBA function: Function Number2Char(c As Integer) As String Number2Char = Split(Cells(1, c).Address, “$”)(1) End Function Courtesy of The Plaid Cow. OR Function Number2Char(ByVal vNumber) Dim addr As String If vNumber 256 Then Exit Function addr = Range(“A1″).Offset(0, vNumber – 1).Address Number2Char = Replace(Replace(addr, “$”, “”), Range(addr).Row, “”) End Function Courtesy [...]

Ever want to paste some data into new empty cell after the last cell with data in certain column? Then take a look at this simple macro. ‘first, select cell in the first row of that column, like A1, K1, etc Range(“A1″).Select ‘move to the last cell with data Selection.End(xlDown).Select ‘move to one row below [...]

Excel VBA/Macro example below will extract comment from every cells with comment, and put the summary in the cell selected by user using Excel input box (read more about how to get cell reference using input box here). Sub CreateCommentsSummary() Dim rgComments As Range, rgCell As Range, rgOutput As Range, iRow As Integer, iCol As [...]