![](https://img-blog.csdnimg.cn/20201014180756754.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
VBA
文章平均质量分 72
huyu20122
这个作者很懒,什么都没留下…
展开
-
excel宏·终极版
控件~设计模式原创 2014-12-04 11:10:49 · 331 阅读 · 0 评论 -
VBA.EXCEL.批量
VBA.EXCEL.批量.一步原创 2014-12-03 19:37:21 · 300 阅读 · 0 评论 -
【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 阅读 · 0 评论 -
万行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 阅读 · 0 评论 -
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 阅读 · 0 评论 -
【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 阅读 · 0 评论 -
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 阅读 · 0 评论