Excel如何取出第10行、20行、30行、40行……的数据
答案:4 悬赏:60 手机版
解决时间 2021-11-29 14:23
- 提问者网友：沉默的哀伤
- 2021-11-29 01:52
Excel如何取出第10行、20行、30行、40行……的数据
最佳答案
- 五星知识达人网友：老鼠爱大米
- 2021-11-29 03:02
添加一行辅助列，使满足条件的结果为0，然后数据透视，就能得出明细了
全部回答
- 1楼网友：第四晚心情
- 2021-11-29 06:00
=INDEX(Sheet1!A:A,ROW(A1)*10)
右拉下拉
右拉下拉
- 2楼网友：雾月
- 2021-11-29 04:56
=OFFSET($A$1,ROW(A1)*10-1,COLUMN(A1)-1)
- 3楼网友：末日狂欢
- 2021-11-29 03:24
Public Sub 提取()
Dim lr1%, lr2%, lc%, i%, j%
lr1 = Sheet1.Cells(65536, 1).End(xlUp).Row
For i = 1 To lr1
lc = Sheet1.Cells(i, 1000).End(xlToLeft).Column
lr2 = Sheet2.Cells(65536, 1).End(xlUp).Row
For j = 1 To lc
If i Mod 10 = 0 Then
Sheet2.Cells(lr2 + 1, j) = Sheet1.Cells(i, j)
End If
Next
Next
End Sub
Dim lr1%, lr2%, lc%, i%, j%
lr1 = Sheet1.Cells(65536, 1).End(xlUp).Row
For i = 1 To lr1
lc = Sheet1.Cells(i, 1000).End(xlToLeft).Column
lr2 = Sheet2.Cells(65536, 1).End(xlUp).Row
For j = 1 To lc
If i Mod 10 = 0 Then
Sheet2.Cells(lr2 + 1, j) = Sheet1.Cells(i, j)
End If
Next
Next
End Sub
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯