Question

我在A列中有一个值，我想写一个单独的工作表，有一些列号和行号，用于指定我想在与A列中的值相同的行中写入该值的位置。

例如，A8中的值在Q8中具有列号“2”，在S8中具有行号“118”。所以我想在新表中写一个公式，它将A8的值放入新表中的单元格B118。并且为了使用A：A中的所有值继续下去，因为第一张纸继续填写。

我已经尝试过这里使用sumifs公式，但它还没有完成;

=IF(SUMIFS(sheet1!$A:$A,sheet1!$Q:$Q,COLUMN(B8),sheet1!$S:$S,ROW(B8))," ",sheet1!$A:$A)

Answer 1

如果您希望新工作表中的公式引用 Sheet1 中的单元格，那么：

Sub marine()
   Dim cl As Long, rw As Long, source As String

   cl = Range("Q8").Value
   rw = Range("S8").Value

   Sheets("new").Cells(rw, cl).Formula = "=Sheet1!A8"

End Sub

如果您只是想将 A8 的值转移到新工作表，那么：

Sub marine2()
   Dim cl As Long, rw As Long, source As String

   cl = Range("Q8").Value
   rw = Range("S8").Value

   Sheets("new").Cells(rw, cl).Value = Range("A8").Value

End Sub

修改＃1：

这是一个处理整个列的版本：

Sub marine3() Dim cl As Long, rw As Long, source As String Dim i As Long, N As Long N = Cells(Rows.Count, "A").End(xlUp).Row For i = 8 To N cl = Range("Q" & i).Value rw = Range("S" & i).Value If cl <> 0 And rw <> 0 Then Sheets("new").Cells(rw, cl).Value = Range("A" & i).Value End If Next i End Sub

Answer 2

这是我的答案。

Sub movindData()
    'take all the data from sheet1 and move it to sheet2
    Dim sht2 As Worksheet
    Dim r
    Dim c
    Dim i
    Dim rng As Range
    Dim A 'for each value in column A
    Dim Q 'for each value in column Q (the column)
    Dim S 'for each value in column S (the row)


    r = Range("A1").End(xlDown).Row 'the botton of columns A, the last row
                                    'I take the inicial cells as a A1, but you
                                    'can change it as you need.
    c = 1 'the column A

    Set rng = Range(Cells(1, 1), Cells(r, c)) 'this takes just the range with the data in columns A
    Set sht2 = Sheets("Sheet2") 

    For Each i In rng
        A = i.Value 'Store the value of every cell in column A
        Q = i.Offset(0, 16).Value 'Store the value of every cell in column Q (the destination column in sheet2)
        S = i.Offset(0, 18).Value 'Store the value of every cell in column s (the destination row in sheet2)
        sht2.Cells(Q, S).Value = A
    Next i
End Sub

将单元格值从一列写入其他单元格指定的位置

2 个答案: