如何使用VBA在excel中实现横向连续取单元格的数据

设计一个循环取a1，b1,c1。。。。这么依次取急，有大神会吗。。

就是在循环中依次把横向的数据赋给一个变量，进行统一处理

string s;
for i = 1 to 100
s = cells(1, i)

next i

顺序的代码如下（如果是倒序，那就改为<号）： sub 顺序() dim arr, n, i, j, tmp   arr = split(selection.value, "/")   b = ubound(arr)   for i = 0 to b - 1       for j = 0 to b - 1 '外循环次数         if arr(j) > arr(j + 1) then '比下一个大则交换位置，如果是倒序，那就改为<号           tmp = arr(j)           arr(j) = arr(j + 1)           arr(j + 1) = tmp         end if       next j   next i   tmp = ""   for i = 0 to b   if tmp = "" then   tmp = arr(i)   else    tmp = tmp & "/" & arr(i)   end if   next i   selection.value = tmp end sub