大大们好
目前录了一个横向排列的宏，但不会写循环执行到10000列，只能用取代的方式把录到的宏
改写。
请问该怎么让宏可以执行到10000列呢？
http://i.imgur.com/uhD11vk.jpg
谢谢各位QQ
ps:小弟不会写宏，如果可以请告诉我要在哪边加循环，摸了好久只能来求救。

循环包宏....sortfields.clear到end with，循环所用到的变量值用于range("A1:D1")，来取代列号1的部分，字串连接上用&，如"a" & 变量 & ":d"....，或是变量值用于range.offset列偏移上回文的包，指的是循环以for...next的话，就是for i =1 to 100....sortfields.clear....with ...end withnextrange("a" & 变量 & ":d"...)或range.offset 择一使用就好