Excel - экспорт данных в другую электронную таблицу

Экспорт данных из одной электронной таблицы Excel в другую электронную таблицу всегда является проблемой, если вы хотите иметь такой же вид во второй. Довольно часто при экспорте файла из Интернета он сохраняется в новом файле, а не в существующем. Требуется так много времени, чтобы перенастроить его. Чтобы решить эту проблему, нужно использовать параметр данных - импорт внешних данных в Excel с новым веб-запросом, куда нужно вставить адрес веб-страницы . Затем, используя опцию импорта, можно выбрать правильный пункт назначения.

  • вопрос
  • Решение
  • Обратите внимание, что

вопрос

  • У меня есть запрос. Всякий раз, когда я экспортирую файл из Интернета, данные сохраняются в новый файл Excel вместо листа Excel, в котором я работаю. В результате мне приходится копировать данные из этого файла в файл Excel, в котором я работаю. Это очень много времени. Есть ли более короткий способ прямого экспорта данных в рабочий файл Excel?
  • У меня есть другая отдельная проблема. Я записал макрос для определенного листа. Этот макрос делает две вещи. 1. Есть два цвета. Столбец A и столбец B. В столбце C он вычитает столбец A из B. 2. Он находит средневзвешенное значение между столбцами A и C.

Теперь я хочу запустить этот макрос во всех листах, кроме первого. Какой код для этого?

Решение

Для решения этой проблемы:

  • Скопируйте адрес веб-страницы в буфер обмена Excel.
  • Перейти на свой лист.
  • Выберите любую ячейку, из которой вы хотите скопировать файл. например, А1.
  • Нажмите data-import external data (или что-то подобное в зависимости от версии) - новый веб-запрос.
  • В новом окне веб-запроса вставьте адрес веб-страницы вверху напротив «адреса».
  • Нажмите на Go
  • Вы получите всю веб-страницу. Какую бы таблицу вы ни выбрали, нажмите на галочку, и вся таблица будет помечена
  • Нажмите «Импорт» в правом нижнем углу
  • Он спросит, где вы хотите оставить его. Если это уже А1, нажмите ОК

Чтобы решить второй вопрос:

 Sub test1 () Dim j As Integer, k As Integer j = Worksheets.Count 'MsgBox j For k = 1 To j' MsgBox Sheets (k). Имя если Sheets (k). k). Активируйте ИМЯ МАКРО. 

Обратите внимание, что

Спасибо venkat1926 за этот совет на форуме.

Предыдущая статья Следующая статья

Лучшие советы