excel - 在 Excel vba 中读取单元格值并写入另一个单元格

Question

我有一个 Excel 文件，我想读取一个单元格的值，即一个单元格包含 (S:1 P:0 K:1 Q:1)我想读取每个值并将每个值保存到另一列。例如，如果 S:1，那么应该是另一个单元格 1，我如何从一个单元格中读取数据并使用宏和 vba 写入另一个单元格？

谢谢你的帮助

更新:

Sub MacroF1()
usedRowCount = Worksheets("Übersicht_2013").UsedRange.Rows.Count
For i = 1 To usedRowCount
cellAYvalue = Worksheets("Übersicht_2013").Cells(i, "AY").Value
If InStr(cellvalue, "S: 1") <> 0 Then
Worksheets("Übersicht_2013").Cells(i, "BC") = 1
Else
Worksheets("Übersicht_2013").Cells(i, "BC") = 0
End If

If InStr(cellvalue, "P: 1") <> 0 Then
Worksheets("Übersicht_2013").Cells(i, "BD") = 1
Else
Worksheets("Übersicht_2013").Cells(i, "BD") = 0
End If

If InStr(cellvalue, "M: 1") <> 0 Then
Worksheets("Übersicht_2013").Cells(i, "BE") = 1
Else
Worksheets("Übersicht_2013").Cells(i, "BE") = 0
End If

If InStr(cellvalue, "L: 1") <> 0 Then
Worksheets("Übersicht_2013").Cells(i, "BF") = 1
Else
Worksheets("Übersicht_2013").Cells(i, "BF") = 0
End If

If InStr(cellvalue, "K: 1") <> 0 Then
Worksheets("Übersicht_2013").Cells(i, "BG") = 1
Else
Worksheets("Übersicht_2013").Cells(i, "BG") = 0
End If

If InStr(cellvalue, "Q: 1") <> 0 Then
Worksheets("Übersicht_2013").Cells(i, "BH") = 1
Else
Worksheets("Übersicht_2013").Cells(i, "BH") = 0
End If
'Worksheets("Übersicht_2013").Cells(i, "BC") = dd
'Worksheets("Übersicht_2013").Cells(i, "AY").Value
'Worksheets("Übersicht_2013").Range("BD44") = "Babak"
Next i

End Sub

Answer 1

当然，您可以使用工作表公式来做到这一点，完全避免使用 VBA:

所以对于这个值来说，列 AV
S:1 P:0 K:1 Q:1

你把这个公式放在BC列中:

=MID(AV:AV,FIND("S",AV:AV)+2,1)

然后这些公式在列 BD, BE...

=MID(AV:AV,FIND("P",AV:AV)+2,1)
=MID(AV:AV,FIND("K",AV:AV)+2,1)
=MID(AV:AV,FIND("Q",AV:AV)+2,1)

所以这些公式寻找值 S:1 , 电话:1 等在 AV 列中。如果 FIND函数返回错误，然后公式返回 0，否则返回 1(如 IF, THEN, ELSE
然后，您只需将 AV 列中所有行的公式复制下来。

高温高压
菲利普