1个回答
展开全部
在工作表上右键单击——查看代码——把下面代码粘上按F5
Sub 序号()
Dim Rowcount As Single, i As Single, j As Single
Rowcount = Range("a65536").End(xlUp).Row
i = Int(Rowcount / 6)
For j = 1 To Rowcount
If j Mod 6 = 0 Then
Cells(j, 2) = i
i = i - 1
End If
Next
End Sub
Sub 序号()
Dim Rowcount As Single, i As Single, j As Single
Rowcount = Range("a65536").End(xlUp).Row
i = Int(Rowcount / 6)
For j = 1 To Rowcount
If j Mod 6 = 0 Then
Cells(j, 2) = i
i = i - 1
End If
Next
End Sub
追问
你答不对题，不要骚乱，我是学习解决问题。
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
MCE 中国
2025-03-12 广告
以下是虚拟筛选的简要流程图说明：1. **调研靶点**：确认是否有参考药物与结合模式信息。2. **建立模型**：基于靶点蛋白结构，参考已有药物结合信息或预测药物结合模式。3. **选择库源**：从多样性化合物库、上市药物分子库等中挑选合适...
点击进入详情页
本回答由MCE 中国提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
