Performing calculations on non adjacent columns

Radtastic10 · #3 06-05-2017, 12:11 PM

I can't post the workbooks, but here is the macro that I am working with. This accomplishes it for one column.

What I am asking is would copying and pasting this multiple times (once for each column I need to perform the calculation on) or is there an easier way to accomplish the end goal.

Example of the columns would be: If columns B, K, N and X needed to have the calculation performed on them.

Code:

With Sheet2
    rng = .Range("B" & .Rows.Count).End(xlUp).Row
End With
        
For i = 2 To rng
x = ActiveSheet.Range("B" & i).Value / 3.3
ActiveSheet.Range("B" & i).Value = x
Next i
Worksheets("Sheet2").Columns("B").NumberFormat = "###0.0"

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Table bottom border not performing well	herpez	Word Tables	2	01-16-2017 03:43 PM
How to return after performing a search	WaltR	Word	2	12-26-2014 05:15 PM
Macro not Performing Formula Update as Expected	tandchas	Excel Programming	7	06-27-2014 05:42 AM
Performing filtering to tasks that occur during the next three months	jessy	Project	1	05-30-2014 05:40 AM
Cumulative calculations for two columns in a table to be placed in the footer	noelr	Word VBA	0	09-05-2013 04:18 PM