- 博客(9)
- 收藏
- 关注
RSS订阅原创 VBA 获得circle输入文件
复制cog文件的前两列放至sheet1，复制整个gff文件放至sheet2，sheet3为cog结果，sheet5为RNA结果。即sheet1、sheet2为输入信息，sheet4为操作界面，sheet3、sheet5为输出信息。VBA宏代码如下（sheet4操作界面下）：Private Sub CommandButton1_Click()Dim a, b As Integera = Te
2016-02-19 09:32:43
314
原创 文章标题
>> mean(rivers)[1] 591.1844> median(rivers)[1] 425> mean(rivers,trim=0.5)[1] 425> x=c(rivers,1e10)> mean(x)[1] 70423122> median(x)
2015-09-30 12:30:57
205
转载 欢迎使用CSDN-markdown编辑器
欢迎使用Markdown编辑器写博客本Markdown编辑器使用StackEdit修改而来，用它写博客，将会带来全新的体验哦：Markdown和扩展Markdown简洁的语法代码块高亮图片链接和图片上传LaTex数学公式UML序列图和流程图离线写博客导入导出Markdown文件丰富的快捷键快捷键加粗 Ctrl + B 斜体 Ctrl + I 引用 Ctrl
2015-09-30 11:57:31
261
原创 VBA 宏 匹配以及单元格颜色
Sub a1()For i = 1 To 3700 If Cells(i, 2) = "" Then Rows(i).Delete End IfNextEnd SubSub gdna()Dim a As IntegerFor i = 1 To 2000 a = 0 For j = 1 To 22400 If Sheet3.
2015-03-17 09:42:30
712
原创 【VBA】excel批量操作，转录组结果表 2015-03-11
还需要探索排序一键化Private Sub CommandButton1_Click()Dim a, b, c As IntegerIf TextBox1.Text > TextBox3.Text Then a = TextBox1.TextElse a = TextBox3.TextEnd Ifb = TextBox2.Text'a是循环次数；b是注释表g
2015-03-11 16:44:43
533
原创 万行excel批量文本处理-2015-02-09
Sub xiugai1()For i = 1 To 120000 If Cells(i, 1) = "C01" Then Cells(i, 1) = "chr01" End If If Cells(i, 1) = "C02" Then Cells(i, 1) = "chr02" End If If Cells(i, 1) =
2015-02-09 11:27:17
278
原创 【VBA】excel宏
Sub 批量计算()Dim a, i As IntegerFor a = 1 To 80 Cells(a, 6) = "" Cells(a, 7) = "" Cells(a, 8) = ""NextFor i = 1 To 80 Cells(i, 6) = Mid(Cells(i, 1), 5, 5) Cells(i, 7) = Cells(
2014-12-03 15:13:29
462
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人