在Excel vba中讀取單元格值並在另一個單元格中寫入

Question

我有一個Excel文件，我想讀取一個單元格的值，即一個單元格包含(S:1 P:0 K:1 Q:1)我想讀取每個值並將每個值保存到另一列。 例如，如果S：1，則應該是另一個單元格1，如何從一個單元格讀取數據並使用macro和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)

因此，這些公式在AV列中查找值S：1 ， P：1等。 如果FIND函數返回錯誤，則公式返回0，否則返回1（如IF, THEN, ELSE

然后，您只需復制AV列中所有行的公式。

菲利普·HTH

Answer 2

我有這種情況下的功能..

Function GetValue(r As Range, Tag As String) As Integer
Dim c, nRet As String
Dim n, x As Integer
Dim bNum As Boolean

c = r.Value
n = InStr(c, Tag)
For x = n + 1 To Len(c)
  Select Case Mid(c, x, 1)
    Case ":":    bNum = True
    Case " ": Exit For
    Case Else: If bNum Then nRet = nRet & Mid(c, x, 1)
  End Select
Next
GetValue = val(nRet)
End Function

填充單元格BC ..（假設您檢查了單元格A1）

Worksheets("Übersicht_2013").Cells(i, "BC") = GetValue(range("A1"),"S")

Answer 3

可以通過以下代碼將駐留在單個單元格中的各個字母或符號插入不同列的不同單元格中：

For i = 1 To Len(Cells(1, 1))
Cells(2, i) = Mid(Cells(1, 1), i, 1)
Next

如果您不想插入像冒號這樣的符號，則將if條件放入循環中。