excel用VBA把所有奇数行数据合并到一行，偶数行数据合并到另一行，保持对应关系。

Posted 2023-04-14

如上图 有只是其中一个工作表中的数据，有上百个这样的工作表，每个工作表格式一样，行数一样，但列数不一样。全部要汇总到一个表格中。如下图，

恳求高手帮忙，在下先行谢过了 。

参考技术A 可以做，但是不免费。 参考技术B 没看清是要用vba

奇偶数分离

奇偶数分离

描述

          有一个整型偶数n(2<= n <=10000),你要做的是：先把1到n中的所有奇数从小到大输出，再把所有的偶数从小到大输出。

输入

第一行有一个整数i（2<=i<30)表示有 i 组测试数据；
每组有一个整型偶数n。

输出

第一行输出所有的奇数
第二行输出所有的偶数

实现：

public class test2 {
    public static void main(String[] args)  
    {  
       
      Scanner in=new Scanner(System.in)   ;
      int num =in.nextInt();//获得有几组测试数据
      int index[]=new int[num];//获取num组测试数据的具体值
      for(int i=0;i<num;i++){
          index[i]=in.nextInt();//讲num组测试数据的具体值存入数组中
          cal(index[i]);
          System.out.println();//表示空一行
      }
          
    }  
public static void cal(int n)  
    {  
          for(int i=1;i<=n;i++){
              if(i%2==1){//表示奇数
                  System.out.print(i+"  ");
              }                     
              }
          System.out.println(); 
          for(int i=1;i<=n;i++){
              if(i%2==0){//表示偶数
                  System.out.print(i+"  ");
              }
                     
              }
          System.out.println();
    }  
}

运行结果：