Question

我很茫然。我一直在研究这个非常小的程序，应该花费5分钟一个半小时。它正确地添加了所有信息，除了它没有在匹配的行中找到两个单元格。我把哈希标签放在我认为的问题上。

Dim q As String
Dim w As String
Dim p As Integer
Dim o As Integer
Dim r As String
Dim lRow As Integer

lRow = ThisWorkbook.Sheets("Data2").Cells(Rows.Count, 1).End(xlUp).Row + 1

q = TextBox4.Text
w = TextBox5.Text
r = TextBox4.Text + TextBox5.Text

ThisWorkbook.Sheets("Data2").Cells(lRow, 1) = r

For p = 1 To 1000

   If ((ThisWorkbook.Sheets("Data").Cells(2, p) = q Or _
        ThisWorkbook.Sheets("Data").Cells(2, p) = w) And _
        (ThisWorkbook.Sheets("Data").Cells(1, p) = q Or _
         ThisWorkbook.Sheets("Data").Cells(1, p) = w)) And _
         (Not ThisWorkbook.Sheets("Data").Cells(1, p) = _
          ThisWorkbook.Sheets("Data").Cells(1, p)) Then '#########################################
   ' If (StrComp(ThisWorkbook.Sheets("Data").Cells(p, 2), q, vbTextCompare) = 0) Or (StrComp(ThisWorkbook.Sheets("Data").Cells(p, 2), q, vbTextCompare) = 0) And (StrComp(ThisWorkbook.Sheets("Data").Cells(p, 1), w, vbTextCompare) = 0) Or (StrComp(ThisWorkbook.Sheets("Data").Cells(p, 1), q, vbTextCompare) = 0) Then
        For o = 3 To 1000
            If (Not ThisWorkbook.Sheets("Data").Cells(o, p) = "") Then
                 ThisWorkbook.Sheets("Data2").Cells(lRow, o) = _
                          ThisWorkbook.Sheets("Data").Cells(o, p)
            End If
        Next o

    End If


Next p

数据不会像应该的那样复制

0 个答案: