请教一条excel问题

公告： 为响应国家净网行动，部分内容已经删除，感谢读者理解。

话题：请教一条excel问题

回答：首先,在空白单元格输入50,然后筛选高工数据,选中筛选出的所有行数据,按F5键,单击 条件,选择可见单元格,“ ”菜单,“选择性粘贴”,“加”,“确定”。

参考回答：Microsoft Excel是微软 的办公软件[Microsoft office][1]的组件之一,是由Microsoft为Windows和Apple Macintosh 作系统的电脑而编

话题：ACCESS 后的EXCEL表如何输出到指 置

问题详情：但是我现在想把B表放在桌面的C表的一个SHEET中,我现在可以

回答：2010-0-14老 码Set Rst1=dbs.Cells(cur_r., 11)), xlsSheet, 1), 1).ColorIndex=xlAutomatic End With Rst1, ".RecordCount cur_r=cur_r + 1 xlsSheet.MoveNext Next i '!备注 '!要求完成时间 xlsSheet.Borders(xlEdgeTop) ; & d & "".Cells(;) xlsAPP;".RecordCount + 11 & " & c & "!"!CO_LN_NO xlsSheet, 10)=Rst1, 1)=Rst1;, 2)=Rst1.Cells(cur_r.Range(xlsSheet, xlsSheet.RecordCount + 11;End IfExit_cmdxls_Click;Print".Workbooks.Cells(cur_r.Activate cur_r=If Rst1.OpenRecordset(") xlsSheet, 10)).ColorIndex=xlAutomatic End With With xlsSheet, ".Range(xl

参考回答：access 输出到指 置 码提供

话题：帮我看一下,这 码有问题吧?为什么运行起来不是很快?

问题详情： IntegerSet sht1=Worksheets(1) For i=4 To 4000 If sht1.Cells(i, 2)

回答：就嵌套了一个循环,速度不快那也没办法了

话题：zzhilling你好,感谢帮助,另外想问一下,如果姓名都在

问题详情：即所有姓名都在S1--S5 列,且从B4单元格开始

回答：上次 不是 看到 有人 给你 回复了 一个 好的 码了吗? 我 觉得 那个 码就不错啊 呵呵额

话题：帮忙解释一段 码

问题详情：0 To sum(i)=0# Next i 帮帮忙解释一下什么意思 其中If Sheet1.Cells

回答：。。。。

参考回答：If Sheet1.Cells(i, 2)="" 假如第i行,第2列单元格,没有数据。“”就是那个单元没有数,是空的。sum(0)=sum(0) + Sheet1.Cells(i,

话题：关于排列组合

问题详情：在EXCEL中,能用什么公式或方法列出10选5或12选5等的所有组

回答：你说的什么意思我没看明白,但是可以告诉你. 10选5=212. 12选5=2

参考回答：此题不是EXCEL初 的问题 较简单的方法, 是写VBA程序, 执行宏, Sub bin_list() n=12 For t1=1 To n - 4 For t2=t1 + 1

话题：excel 跳过空格显示多列的非空单元格内容

问题详情：如下图:先进行A、B列内容的排序,结束后进行C、D列内容的排

回答：F1输入=IF(A1"",A1,C1) 回车并向右填充到G1,再选F1~G1一起向下填充。 如果要实现你的F~G列那样也行: F1输入=OFFSET(A$1,MOD(ROW(4:4),4)*2+INT((ROW()-1)/4),INT((ROW()-1)/4)*2) 回车并向右填充到G1,再选F1~G1一起向下填充。 (极限于你的数据A1~D)

参考回答：如果有很多列,可以考虑用宏, 码如下:Sub test()Dim sht1 As Worksheet, sht2 As WorksheetSet sht1=Sheets(1)Set sht2=Sheets(2)i1=sht1.UsedRange.SpecialCells(xlLastCell).Rowj1=sht1.UsedRange.SpecialCells(xlLastCell).Columnk=1For j=1 To j1 Step 2For i=2 To i1If sht1.Cells(i, j) "" Thensht2.Cells(k, 1)=sht1.Cells(i, j)sht2.

话题：请问我想对数字进行分组排列,但不能重复排列,请问有什么

问题详情：请问我想对数字进行分组排列,但不能重复排列,请问有什么方法

回答：你的意思是不是想要知道你你一排数据一共有多少条数据啊?这样的话,你不是只要用鼠标选着那排数据,然后excel的窗口的右下角就会显示合计数,那个数字就是你选择的数据个数 如果你只是想要知道个数的话,也可以从数学的角度直接计算。按照你说的10个数一组,两个数结合。那么就是+++6+5+4+3+2+1=(+1)*/2=45个数据

参考回答：Excel有个函数=bin(10,2) 得到45个组合。VBA程序在即时窗口打出排列组合:Sub tentwo() For I1=0 To For I2=I1 + 1 To M=

话题：如何将VB中TEXT里的文本导入EXCEL里面啊

问题详情：点击按钮,把TEXT1导入A1,T2导入B1,T3导入C1,以此类推,然

回答：Private Sub mand1_Click()Dim Ap As Object, WkBk As Object, Sht1 As Object, s As IntegerSet Ap=CreateObject("Excel.Application")Set WkBk=Ap.Workbooks.Open(App.Path & "\mydata.xlsx")Set Sht1=WkBk.Worksheets("Sheet1")Static i As IntegerSht1.Cells(i + 1, 1)=Val(Text1.Text)Sht1.Cells(i + 1, 2)=Val(Text2.Text)Sht1.Cells(i + 1, 3)=Val(Text3.Text)i=i + 1WkBk.SeAp.Workbooks.CloseAp.QuitSet Sht1=NothingSet WkBk=NothingSet Ap=NothingEnd Sub

参考回答：想问一下: 你为什么不用数据库呢,先都放到数据库中,然后再从数据库中导出你所需要的数据,这样效果会更好。当然,你如果必须

话题：如何用excel函数列出所有选3的结果?

问题详情：个数中随机选3个数出来平均,一共有4种可能,怎么能用函数把

回答：试试这段 码(工具-宏-VB 器,打开VBA 器, 入-模块,把下面的 码 到其中,保存.关闭VBA,回到excel,点:工具-宏-宏 ,选中其中的宏名"选三",点后面的执行) Sub 选三() n=For t1=1 To n - 2 For t2=t1 + 1 To n - 1 For t3=t2 + 1 To n r=r + 1 Cells(r, 1)=t1 Cells(r, 2)=t2 Cells(r, 3)=t3 Next Next Next End Sub 哦,简单,把 码略加变化(只是数学问题哦): Sub 选三() n=For t1=1 To n - 2 For t2=t1 + 1 To n - 1 For t3=t2 + 1 To n r=r + 1 Cells(r, 1)=t1 * 0.25 + 1.5 Cells(r, 2)=t2 * 0.25 + 1.5 Cells(r, 3)=t3 * 0.25 + 1.5 Next Next Next End Sub 你再试试?

参考回答：函数估计做不出来,。。。。