使用VBA将 excel 中的矩阵列表数据按照S型重新排列在一列

如题所述

举报该问题

第1个回答 2014-05-10

亲，这个公式，下拉：
=INDIRECT(ADDRESS(INT(ROW(A4)/4),MOD(ROW(A4),4)+1))

相似回答

excel2010如何快速把矩形表格的数据排成一列然后合并同类项答：可以使用VBA操作。Sub Combine()Cells(1, 1) = "品名"Cells(1, 2) = "重量"Dim myRange, myRange1 As RangeDim i As SingleSet myRange = Application.InputBox("选择汇总区域", Default:="D5:I100", Type:=8)For Each myRange1 In myRangeDim Flag As SingleFlag = 0If myRange1 ...

...vba的朋友进(excel如何将一个表格中所有数据整合到同一竖列中来...答：Option ExplicitSub YgB() Dim db, i, j, m, n, y, arr Set db = CreateObject("Scripting.Dictionary") i = 1 '从第一列开始 While Cells(1, i) <> "" '处理每一列，知道遇到空（第一行） y = Trim(Cells(1, i)) If db.Exists(y) Then '移动 n ...

请问如何在Excel中,将一列数据自动随机排列,并把结果自动生成为新的一...答：Sub A列随机排序()Dim rcA, i, w, k, c As LongDim s As StringrcA = Range("A" & Rows.Count).End(xlUp).RowFor i = 1 To rcA s = Range("A" & i) 'Debug.Print s Do Randomize w = Int((rcA * Rnd + 1)) If Range("B" & w) = "" And w ...

如何用VBA代码将excel中不同项目下的多列多行数据转置成为不同项目对...答：在M2中输入或复制粘贴下列公式 =IF(COLUMN(A:A)<=COUNTIF($A:$A,$G2),INDEX($B:$B,MATCH($G2,$A:$A,)+COLUMN(A:A)-1),"")下拉填充，右拉填充当第1行出现第二和第三时，分别将上面公式中的 B:$B分别修改为$C:$C和$D:$D。

EXCEL表中,有没有人可以做一列VBA程序,可以使数据填入后自动排序的...答：第一种一输入数据，自动排序 Private Sub Worksheet_Change(ByVal Target As Range)Range("A:F").Sort Key1:=Range("F2"), Order1:=xlDescending, Header:=xlGuess End Sub 第二种，右击自动排序 Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)Range("A:F...

如何用VBA将excel中的一列值进行从小到大排序,然后显示到excel上...答：假设源数据在A列，排好的数据输出到B列，代码如下：Sub s() Dim arr, i, j, n, tmp n = Cells(Rows.Count, 1).End(3).Row arr = [a1].Resize(n) For i = 2 To n For j = n To i Step -1 If arr(j, 1) < arr(j - 1, 1) Then tmp = arr(...

大家正在搜

excel一列数据摆成矩阵形式 excel三列数据转化为矩阵 excel表格矩阵数据查找 excel数据表转矩阵 excel怎么将一列变成矩阵 excell数据矩阵 excel数据如何变成矩阵 excel怎么把数据转成矩阵 excel原始数据生成矩阵