Извлечение значений из таблицы и представление их в определенном порядке

#excel #vba

#excel #vba

Вопрос:

Мне нужна ваша помощь, поскольку я совершенно новичок в программировании на VBA.

Я создаю таблицу Excel, в которую пользователь вводит некоторые значения (a, b, c, d и т.д.), И Excel представляет их в следующем формате.

 "Units","a"
"Section","b"
"Part","c"
"Lives","d"
"Loade1"
"Smax","f1"
"Smin","g1"
"Kt","h1"
 

В приведенном выше формате у меня есть таблица Excel, где e1, f1, g1 и h1 будут введены в строки таблицы.

Поэтому мне нужно, чтобы строки, начинающиеся с Load, повторялись столько раз, сколько строк в таблице, при этом значения берутся из строки, на которую ссылаются (т. Е. Строка 2 означает e2, f2 g2 и т. Д.)

Я попробовал следующий частичный код, чтобы по крайней мере увидеть, записывал ли макрос правильный формат:

 Sub Copy_Main()
Dim Count As Integer
Dim Load_num As Integer
Dim Smax As Integer
Dim Smin As Integer
Dim Kt As Integer
Dim Repeats As Integer
Dim Lives As Variant
Dim Pair As String
Lives = ThisWorkbook.Worksheets("Sheet1").Range("B8").Value2
Count = 1
Load_num = Count
Smax = [Stress_Table[Smax]].Rows(Count)
Smin = [Stress_Table[Smin]].Rows(Count)
Kt = [Stress_Table[Kt]].Rows(Count)
Repeats = [Stress_Table[Repeats]].Rows(Count)
Pair = Chr(34) amp; "Load" amp; Load_num amp; Chr(34)
MsgBox (Pair)

End Sub
 

Я попытался просмотреть значение pair, но вообще не смог запустить этот начальный код.

Может ли кто-нибудь указать на ошибку в приведенном выше коде? или, если бы кто-нибудь мог помочь мне с самой основной проблемой, это было бы еще лучше: P

Комментарии:

1. Какую ошибку вы получаете и где?

2. Я использовал оператор Set до того, как строка Lives = … Но это выдает ошибку, требуемую для объекта.