VBA写一段代码谁会？

每列颜色有三个单元格3个数字，如果每列颜色从下向上数连续不断的计数是多少就把该颜色的对应第一行数字放在对应位置，这个怎么用VBA实现

举报该问题

推荐答案 2021-04-27

Sub test()

Application.ScreenUpdating = False

For j = 7 To ActiveSheet.UsedRange.Columns.Count

For i = 2 To ActiveSheet.UsedRange.Rows.Count

If Len(Cells(i, j)) > 0 Then

Cells(1, j) = Cells(i, j)

Exit For

End If

Next i

Next j

Application.ScreenUpdating = True

End Sub

根据楼主截图做了理解，不知道对不对的。

就是提取每列中的数据到对应列的第一行

追问

不对

追答

那么该怎么理解呢？

追问

亿物污就午耳伞以溜物伞＋窝唯❤️

温馨提示：答案为网友推荐，仅供参考

当前网址：http://00.wendadaohang.com/zd/n0DeTB0j0e0TejIrej.html

其他回答

第1个回答 2021-04-26

For i = 7 To 15
For j = 2 To 10
If IsEmpty(Cells(j, i)) Then
Else
Cells(1, i).Value = Cells(j, i).Value
Exit For
End If
Next j
Next i
7代表从di 7列开始，15 代表15列结束

2代表第二行 10 代表第10行
改这几个数字就好了追问



追答

你说得太复杂了完全不明白你要干嘛能简单那个的说说流程，就是你想要实现啥

追问

数字归类

相似回答

求一段excel vba代码答：Set ws = ThisWorkbook.Sheets("Sheet1")' 1. 给 E 列升序排序 With ws lastRow = .Cells(.Rows.Count, "E").End(xlUp).Row .Range("A1:H" & lastRow).Sort Key1:=.Range("E1"), Order1:=xlAscending, Header:=xlYes End With ' 2. 在 E 列后插入 F、G、H 列并写入文字 w...

Excel写个VBA谁会?答：Sub FindDuplicate()Dim i As Long, j As Long, k As Long Dim rng1 As Range, rng2 As Range Dim ws As Worksheet Set ws = ThisWorkbook.Sheets("Sheet1") '指定操作的工作表 For i = 5 To 20 Step 4 '循环遍历每4行数据 Set rng1 = ws.Range("A" & i & ":O" & i) '...

VBA写一段代码谁会?答：Sub test()Application.ScreenUpdating = False For j = 7 To ActiveSheet.UsedRange.Columns.Count For i = 2 To ActiveSheet.UsedRange.Rows.Count If Len(Cells(i, j)) > 0 Then Cells(1, j) = Cells(i, j)Exit For End If Next i Next j Application.ScreenUpdating = True End Sub ...

求EXCELL高手,帮写一段VBA,主要用于查找一个单元格部分关键字并标红...答：难道是要这样？看下面的代码：Sub ChaZhao() '查找关键词，并加粗标红 Dim rng As Range, i For Each rng In Range("A2:B8") 'A2:B8是要处理的数据区域 For i = 1 To Len(rng.Value)If Mid(rng, i, 2) = "中国" Then '中国是关键词，数字2是关键词字符数 With rng.Characters(...

大家正在搜

VBA代码 accessVBA代码 VBA 表格的隐藏代码可以用vba编写宏代码写代码有什么用写了很多代码快写代码写代码啦怎么自己写代码