0

我要求帮助比较不同时间点实验中的基因表达值，使用 Excel 或 VBA 进行比较然后生成报告表。每张表（时间点）包含两列：Gene ID 和 Value，并且每张表中的基因 ID 可能不相同（时间点：1H、4H 和 8H.. 等）。在报告表（sheet4）中，我想要所有基因 ID（第 1 列）和每个时间点的值（第 2 列，第 3 列，第 4 列）。因此，最终工作表（工作表 4）将包含来自每个工作表的所有基因 ID 到列 1，工作表 1（值 1）、工作表 2（值 2）和工作表 3（值 3）的表达式值将在列 2、列 3 和列 4 中表 4。我使用 excel 的“vlookup”可以在比较/查找 ID 后将表达式值添加到 sheet4，但我不知道如何将所有工作表的 GeneID 一起添加。

它看起来像：

表 1（1H）：

(标题) GeneID, Value1

生态，2；

Xmo, 4;

表 2（4H）：

(标题) GeneID, Value2

生态，6；

嗯，8；

表 3（24 小时）：

(标题) GeneID, Value3

Xmo, 10;

阿玛，12；

最后的sheet4（总结）：

(标题) GeneID、Value1、Value2、Value3

Eco, 2, 6, (空白);

Xmo, 4, (空白), 6;

嗯，（空白），8，（空白）；

安娜，（空白），（空白），12；

4

2 回答 2

1

我认为最快的方法可能是使用Data|Consolidate命令并显示设置：

在此处输入图像描述

在此处输入图像描述

于 2012-05-18T07:42:31.243 回答
0

您可以使用 ADO 和 Excel 做很多事情。假设您的工作表名称是 1Hour、4Hour 和 24Hour。

''http://support.microsoft.com/kb/257819
Dim cn As Object
Dim rs As Object
Dim strFile As String
Dim strCon As String
Dim strSQL As String
Dim s As String
Dim i As Integer, j As Integer

''This is not the best way to refer to the workbook
''you want, but it is very convenient for notes
''It is probably best to use the name of the workbook.

strFile = ActiveWorkbook.FullName

''HDR=Yes, the names in the first row of the range
''are used as field (column) names.
''
''This is the ACE / Excel 2007/10 connection string, you can get more
''here : http://www.connectionstrings.com/excel

strCon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strFile _
    & ";Extended Properties=""Excel 12.0 Xml;HDR=YES"";"

''Late binding, so no reference is needed

Set cn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")

cn.Open strCon

strSQL = "TRANSFORM Sum(ValX) As SumVal " _
       & "SELECT GeneID FROM ( " _
       & "SELECT GeneID, '01Hour' As TimeX, Value1 As ValX  " _
       & "FROM [1Hour$] " _
       & "UNION ALL " _
       & "SELECT GeneID, '04Hour' As TimeX, Value2 As ValX  " _
       & "FROM [4Hour$] " _
       & "UNION ALL " _
       & "SELECT GeneID, '24Hour' As TimeX, Value3 As ValX  " _
       & "FROM [24Hour$] ) t " _
       & "GROUP BY GeneID " _
       & "PIVOT TimeX"

rs.Open strSQL, cn, 3, 3


''Pick a suitable empty worksheet for the results
With Worksheets("Sheet4")
    For i = 0 To rs.Fields.Count - 1
        .Cells(1, i + 1) = rs.Fields(i).Name
    Next

    .Cells(2, 1).CopyFromRecordset rs
End With

''Tidy up
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing

可以使用 Jet/ACE SQL。

基础 Microsoft Jet SQL for Access 2000
中级 Microsoft Jet SQL for Access 2000
高级 Microsoft Jet SQL for Access 2000

于 2012-05-18T11:28:55.193 回答