2种方法制作Excel薪资条

如图所示,制造容易的薪资条实在很容易,后期讲过,因变量公式用多了,会拖慢任务表的运转进度,因为正在前期我会过分的正在没有运用因变量公式的状况下用容易的办法来为自己细致注明其它操作.

1491382912350106.jpg

办法一,排序法如图所示,正在最初一列输出序列号,经过排序即可到达咱们想险地手段.最初把排序删掉.

1491382974133846.jpg

1491382974647929.jpg

办法二,VBA代码完成上图后果异样能够运用容易的多少行VBA代码就可完成.如次图所示

1491383019802542.jpg

Sub 薪资条()  Dim i%, z%, arr, r%  '声明变量  z = Cells(Rows.Count, 1).End(3).Row  '获取数据最后一行号  arr = [a1:o1]  '将数据表头赋值数组  r = Application.CountA(arr)  '获取数组数目  For i = z To 3 Step -1  '倒循环    Rows(i).Resize(1).Insert  '向下插入一行    Cells(i, 1).Resize(1, r) = arr  '将数据写入单元格  NextEnd Sub